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CHAPTER 1. INTRODUCTION 



The Systems Operation Manual is one of a set of manuals prepared to 
define the various functions and personnel relationships involved in the 
implementation and system operation of Information Management System/360 
(IMS/360). It also includes the IMS/360 sample problem (Chapter 8). 
The other manuals in the set are: 



IMS/360 Application Description Manual (GH20-0524) 



IMS/360 Program Description Manual (SH20-0634) 



IMS/360 Operations Manual, Volume II - Machine Operations (SH20-0636) 



IMS/360 System Manual, Volume I - Program Logic (LY20-0431) 

IMS/360 System Manual, Volume II - Flowcharts (LY20-0432) 

This introductory chapter restates some of the same information found 
in the introductory chapter of the Program Description and Machine 
Operations Manuals. 

The necessity for these manuals became apparent during the design 
phase of the IMS/360 system. The usual mix of data processing personnel 
normally provides for application programming, system programming, and 
machine operations functions. With the introduction of IMS/360, 
however,, the need for a fourth function, a coordinating force in 
implementing, administering, and maintaining the system, became 
apparent. The function is the "heart" of the IMS/360 system and has 
been designated the "Systems Operation" function. The Systems Operation 
function and its interface with other functions are delineated in this 
manual (see Figure 1). 

An understanding of the following is a prerequisite for a thorough 
comprehension of this manual: 

IMS/360 Application Description Manual 

IMS/360 Program Description Manual 

IMS/360 Operations Manual, Volume II - Machine Operations 

IMS/360 Application Directory 

OS/360 COBOL or PL/I Language (GC28-6516 or GC28-8201) 

OS/360 Supervisor and Data Management Services (GC28-6646) 

OS/360 Supervisor and Data Management Macro Instructions (GC28-6647) 

OS/360 Basic Telecommunication Access Method (GC3 0-2004) 

OS/360 System Programmer's Guide (GC28-6550) 

OS/360 System Generation (GC28-6554) 

OS/360 Job Control Language (GC28-6539) 




APPLICATION 
PROGRAMMING 



MACHINE 
OPERATIONS 



Figure 1. IMS/360 functional relationships 

SYSTEMS OPERATION FUNCTION 

The function of Systems Operation is: 

• Configuration planning, for all purposes, of new applications so 
that communication lines, consoles, and software are available to 
support approved applications 

• Responsibility for control over and approval of all new data base 
designs and descriptive control blocks 

• Maintenance of the data bases under Data Language/I, including all 
control, allocation, and data base creation and reorganization 

• Maintenance of a catalog of programs "certified" to operate as 
message processing programs under IMS/360, including related 
documentation, processing priorities, transaction codes, control 
blocks, etc. 

• Responsibility to provide the capability for reconstruction and 
recovery of IMS/360 and its associated data bases when routine 
procedures known and understood by the Machine Operations function 
are insufficient for such recovery and reconstruction. The Systems 
Operation function also has the responsibility to be available to 
participate in such extraordinary operations whenever they are 
required. 

• Responsibility for the utility programs that process the IMS/360 
system log tapes and for causing these programs to process the log 
tapes and to yield accounting information, machine operations 
statistics, usage and data base statistics, and certain management 



reports on utilization and errors incurred. The function also has 
the responsibility for auditing these reports for quality and for 
assigning certain reports to other functions for analysis, as 
appropriate. 

Accounting and billing for IMS/360 and message programs and a 
background batch program in the IMS/360 environment. Statistics 
from the system log tape reflecting activity by system, transaction 
type, terminal, line, etc. are also distributed. 

Responsibility for IMS/360 system definition and modification 

Maintenance of all IMS/360 documentation 



SYSTEMS PROGRAMMING FUNCTION 

The functions of Systems Programming encompass the following: 

• Assistance and participation in the hardware installation, test, and 
initial operations of any new equipment or changed configurations 

• Consultation with IMS/360 application programmers in conjunction 
with the Systems Operation function to assist in the integration of 
applications with IMS/360 

• Software maintenance and improvement of IMS/360 utility programs and 
modifications to Operating System/360 

MACHINE OPERATIONS FUNCTION 

In addition to the usual operational assignments, the Machine 
Operations function is responsible for: 

• All master terminal capabilities in accordance with established 
procedures, with especially prepared instructions to cover 
extraordinary happenings 

• Assisting terminal operators at remote terminals in the initial 
diagnoses of apparent problems, whether they are concerned with the 
remote terminal, the connecting communication line, the central 
hardware, the central software, or message processing application 
programs. After the initial diagnoses, the Machine Operations 
function should have accumulated sufficient information to determine 
whose assistance is required and to intelligently describe the 
problem, and can assist in determining the degree of emergency 
sustained. 



APPLICATION PROGRAMMING FUNCTION 

The Systems Operation function provides for applications planning, 
implementation, and audit. The application programming function must 
consider the following in its analysis of a proposed application: 

• Configuration and storage device requirements for anticipated 
applications 

• Data base structuring, storage device cost/performance tradeoffs, 
and commonality of data with existing data bases 

• Program structuring, to include core storage requirements, duration 
of execution, overlay structure, and program chaining 



• Message formats and length, transaction types, priorities, 
passwords, and logical terminal names 

• Schedule of data base checkpoints, and checkpoint cost versus 
reconstruction cost 

• Schedule of data base dumps and reorganization 

SYSTEMS OPERATION CHECKLIST 

A Systems Operation checklist is provided here as a further aid to 
the reader in understanding the tasks of the Systems Operation function. 

The items or tasks in the checklist are enumerated in detail later in 
this manual. Implementation of these tasks is also described. Examples 
and possible error conditions in the performance of the Systems 
Operation function are also given. 

This checklist is not ordered chronologically. 

It is directed toward the information needed from a single 
application. Of course, under IMS/360, there is in all probability more 
than one application program proposed or in operation. Each application 
program must therefore be checked off against this list. 

The following is an explanation of the columns of the checklist: 

Column 1,. The checklist item under consideration. 



Column 2. Is a teleprocessing application program affected by this 
item? (X means YES.) 

Column 3. Is a batch application program affected? 

Column 4. Is the Systems Operation function affected by this item? 

Column 5. Is IMS/360 DBD generation affected by this item? (X means 
YES ; entry in Macro column indicates which macro ; entry in 
Operand column indicates the operand of the macro. ) 

Column 6. Is IMS/360 PSB generation affected by this item? (X means 
YES; entry in Macro column indicates which macro; entry in 
Operand column indicates the operand of the macro. ) 

Column 7. Is IMS/360 system definition affected by this item? (X 
means YES; entry in Macro column indicates which macro; 
entry in Operand column indicates the operand of the 
macro.) 

Column 8. Is the IMS/360 security maintenance program affected by 
this item? (X means YES; entry in Control column 
indicates which control statement; entry in Data column 
indicates which data statement.) 

Column 9. In which manual can more details be found about this 
particular item? 

| Abbr evi at ion Full Title 



SOM 

MOM 

PDM 

SM 

OS/360 



IMS/360 Operations Manual, Volume I - Systems Operation 
IMS/360 Operations Manual, Volume II - Machine Operations 
IMS/360 Program Description Manual 
IMS/360 System Manual, Volume I - Program Logic 
Appropriate Operating System/360 Manual 



SYSTEMS OPERATION CHECKLIST 
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SYSTEM 
DEFINITION 



SECURITY 
MAINTENANCE 



DETAIL IN 
WHICH 



MACRO OPERAND MACRO OPERAND MACRO OPERAND CONTROL DATA MANUAL 



When consulting with the 
application programming 
function about the application 
program structure, have the 
following been considered? 



Core limits 



b. Overlay structure 

c. Program chaining - 



d. IMS/360 restart 

e. Storage devices" 



Select Type I programming 
systems (MVT, MFT-II, or PCP). 



IMSCTRL 
APPLCTN 



SYSTEM 
PGMTYPE 



3. Select type of IMS/360 

processing region (Type 1 or 
2 or 3). 



SYSTEM 
(INDIRECT- 
LY) 



Select how many regions or 
partitions all applications 
will need at one time. 



Within those regions or 
partitions, how many 
requests are 
anticipated? (Terminal 
I/O, Message Queues, 
and DL/I data base 
requests) 



Select application program 
name and check for 
duplication. 



PSB(name)) (PRQGiAM 



PPM, SOM 



Which application program 
language has been selected? 



Has enough information been 
provided about the selected 
telecommunications system 
for IMS/360 teleprocessing 
environment analysis? 



Terminal hardware and 
network (including 
lines) 



PDM, SOM 
MOM 



Specify transaction 
codes for application 
program. 



PDM, SOM 
MOM 



(1) Specify priority 
for each 
transaction code. 



) (TRANSACT 

PASSWORD 
TERMINAL 



PDM, SOM 
MOM 



Is this 
TRANSACT 
code an 
Inquiry 
type or not? 



PDM, SOM 
MOM 



c. Aro messages to be 
entered at remote 
- terminals single- or 
multiple-line? 



(1) Select whether, 
after input of 
message, terminal 
is to continue 
input of other 
messages or wait 
until previous 
message has been 
processed. 



PDM, SOM 
MOM 



PDM, SOM 
MOM 



TRANSACT MSGTYPE 
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SYSTEM 
DBDGEN PSBGEN DEFINITION 

MACRO OPERAND MACRO OPERAND MACRO OPERAND 



SECURITY 
MAINTENANCE 



DETAIL IN 
WHICH 



CONTROL DATA MANUAL 



(2) Have message formats 
and length been 
reviewed? 


X 




X 


















PDM 




d- Specify the length of 
time to process the 
message. 


X 




X 










TRANSAC1 


PROCLIM 






SOM 




e. Specify the number of 
messages to be 
processed per 
application program 
load in a region. 


X 




X 










TRANSACT 


PROCLIM 






SOM 




f. Specify the line groups 
for the same terminal 
types . 






X 










LINEGRP 
LINE 


DDNAME 






SOM 




(1) Specify whether 

line group is dialup 
(switched) ; if so, 
specify telephone 
number. 
















SUBPOOL 
LINEGRP 
LINE 

POOL 


FEAT 
FEAT 






SOM 




g. If 1050 system, specify 
whether station control/ 
switched or station 
control/non- switched. 






X 










LINEGRP 
LINE 


FEAT 
FEAT 






SOM 




(1) If station control/ 
switched, specify 
Autoanswer. 






X 










LINEGRP 
LINE 


FEAT 
FEAT 






SOM 




(2) If station control/ 
nonswitched, option 
is Autopoll. 






X 










LINEGRP 
LINK 


FEAT 
FEAT 






SOi-i 




1 
h. If 2740 system, specify 
station control/non- 
switched or no station 
control (transmit 
control)/ switched. 






X 










LINEGRP 

Line 


FEAT 
FEAT 






SOM 




(1) If station control/ 
nonswitched, option 
is AUTOPOLL or POLL. 






X 










LINEGRP 
LINE 


FEAT 
FEAT 






SOM 




(2) If no station 

control (transmit 
control)/ switched, 
option is 
.AUTOANSWER. 






X 










LINEGRP 

LINE 

POOL 


FEAT 
FEAT 
FEAT 






SOM 




i. Specify each communi- 
cation line by number 
with physical terminals 
and logical terminal 
names, their features, 
their addresses, and 
their component addresses. 
Check for duplication of 
names. 


X 




X 






PCB 
PCB 
PCB 


TYPE=TP 

LTERM 

TYPE=DB 


LINE 
TERMINAE 

NAME 
NAME 


ADDR 
ADDR(PHY) 

ltermnam< 
COMP 


i (TER^ 
) (PTE1 

) (COMMi 


1INAL (Si 
!M PASSWC 

>ND 

PASSWORI 
TERMINA1 


:e 8) 
3RD 

SOM 
SM 
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SYSTEM 
DBDGEN PSBGEN DEFINITION 

MACRO OPERAND MACRO OPERAND MACRO OPERAND 



SECURITY 
MAINTENANCE 
CONTROL DATA 



DETAIL IN 

WHICH 

MANUAL 



j . Describe your input and 
output queue control 
record and message data 
sets desired. Also 
are reusable queues 
required? 






X 










IMSCNTRL 

MSGQUEUE 
MSGQUEUE 
MSGQUEUE 
MSGQUEUE 
MSGQUEUE 


MSGBUFF 

QCRIN 

QCROUT 

MSGIN 

MSGOUT 

REUSE 






SOM 


k. Specify master terminal 
name after giving 
consideration to master 
terminal operation 
relationship. Check 
duplication. 


X 


X 


X 










MASTTERN 


logical 
name 






APM 

SOM 
MOM 


Specify password and 
terminal security. 


X 




X 














) (PASSWORD 
) (TERMINAL 


TERMINAL 

TRANSACT 

COMMAND 

DATABASE 

PROGRAM 

PTERII 

PASSWORD 
TRANSACT 
COMMAND 


MOM 
SOM 


9. Specify all data base names 
for each application 
program. 


X 


X 


X 


DBD 


NAME 


PCB 


DBDNAME 


DATABASE 


DBD (name) 
(see iteir 
10 below) 


) (DATABASE 


PASSWORD 


PDM 
SOM 


a. Specify what type of 
processing region. 


X 


X 


X 










IMSCNTRL 


SYSTEM 
(indirect 

iy) 


- 




PDM 
SOM 


b. Specify how appli- 
cation program intends 
to use each data base 
(read-only, update, 
exclusive use) . 


X 


X 


X 










DATABASI 


INTENT 






PDM 
SOM 


(1) Also specify 
application 
program options 
(get, delete, 
insert, replace, 
load) . 


X 


X 


X 






PCB 


PROCOPT 










PDM 

sow 


c. Has consideration been 
given to logging all 
segments against a Sata 
base for data base 
"backout" during emerg- 
ency restart! 
















DATA BASI 
I 


: LQG 






PDM 
SOM 
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DEFINITION 



SECURITY 
MAINTENANCE 



MACRO OPERAND MACRO OPERAND MACRO OPERAND CONTROL DATA 



DETAIL IN 

WHICH 

MANUAL 



10. Specify what access method is 
wanted for eacii data base; 
their data set names and 
their storage types. 


X 


X 


X 


DBD 
DMAN 
OMAN 
DMAN 


ACCESS 
DDl 
DD2 
DEVI 














PDM 
SOM 




a. Is the organization of 
each data base the most 
efficient concerning: 

(1) Prime 

(2) Overflow 

(3) Logical record length 

(4) blocking factor 

(5) Multiple data set 
Groups and single 
data set group 

(t>) HUM! and (ISAM 

(7) BISAM and UISAM 

(8) Variable-length 
data base record 
processing 


X 


X 


X 


X 

DMAN 
DMAN 


LRECL 
BLKFACT 














SOM 




11. Specify the application 
programs hierarchical 
(sensitive) segments and 
parent relationships. 


X 


X 


X 


SEGM 
SEGM 
SEGM 

SEGM 


NAME 
PARENT 
BYTES 
FREQ 


SENSEG 


SENSEG- 

name 
parent- 
seg-name 








PDM 
SOM 




a. Describe in detail the 
(sensitive) segments. 


X 


X 


X 


FLDK 

{, 
FLD 


NAME 
TYPE 
BYTES 
START 


PCB 


KEYLEN 










PDM 
SOM 




b. Is an adequate 
history of these 
relationships being 
maintained for analysis 
of the statistics reports? 






X 


















SOM 




12. Check the entry point to 
the application program. 


X 


X 




















PDM 




a. If PL/I, the load 

module ENTRY must be 
either IHESAPB or 
IHESAPD. 






X 


















PDM 




13. Plan and specify the 

statistics reports from 
IMS/360 system. 


X 


X 


X 


















PDM 
SOM 
MOM 




14. Plan the residence of 
MACLIB, RESLIB, PGMLIB, 
PSBLIB, DBDLIB, and 
PROCLIB. 






X 










MACLIB 

MACLIB 

MACLIB 

MACLIB 

RESLIB 

RESLIB 

RESLIB 

PGMLIB 

PGMLIB 

PGMLIB 

PSBLIB 

PSBLIB 

PSBLIB 

DBDLIB 

DBDLIB 

DBDLIB 

PROCLIB 

PROCLIB 

PROCLIB 


UNIT 

VOLNO 

PDS 

COPY 

PDS 

UNIT 

VOLNO 

UNIT 

VOLNO 

PDS 

UNIT 

VOLNO 

PDS 

UNIT 

VOLNO 

PDS 

UNIT 

VOLNO 

PDS 






SOM 
MOM 
SM 
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SYSTEM SECURITY 

DBDGEN PSBGEN DEFINITION MAINTENANCE 

MACRO OPERAND MACRO OPERAND MACRO OPERAND CONTPOL DATA 



DETAIL IN 

WHICH 

MANUAL 



15. Are the libraries and 

procedures set up in accordance 
with this plan? (See 14) 






X 




















16. Specify data sets, volumes, 
I/O devices required for 
System Definition. 






X 










IMSGEN 
IMSGEN 
IMSGEN 


UTISDS 
ASMPRT 
LEPRT 






SOM 
MOM 
SM 


17. Specify numbers for OS/360 
Type 1 SVC's (for inter- 
region communication). 






X 










IMSCNTRL 


COMMSVC 






SOM 
MOM 
SM 


18. Specify OSAM channel end 
appendage load module 
member name-(IGG019xx). 






X 










IMSCNTRL 


OCENDA 






SOM 

MOM 
SM 


19. Specify the user SVC number 
to be the OSAM type 2 SVC 
numbers. 






X 










IMSCNTRL 


OSAMSVC 






SOM 

SM 


20. Has the DBD generation been 
executed? 

Items 9, 10, 10a, 11, 11a, 
and 20 must have been complete. 


X 


X 


X 


PRINT 
DBDGEN 
FINISH 
END 


NOGEN 














PDM 
SOM 


21. Has PSB generation been 
executed? 

Items 5,6,7i,9,9b(l) ,11, 
11a, & 21 must have been 
complete. 


X 


X 


X 






END 


" 










PDM 
SOM 


22. Has System Definition 

been completed? Stage 1? 
Stage 2? 

Items 2, 3, 4, 4a, 5, 7a, 7b, 
7b(l) ,7d,7e,7f,7f (l),7g, 
7g(l) (. (2),7h,7h(l) & 
(2),7i,7j,7k,9, 9a ,9b 
14,16,17,18,19 must have 
been completed. 


X 


X 


X 










IMSGEN 

IMSGEN 
IMSGEN 


UTISDS 

ASMPRT 
LEPRT 






SOM 
SM 


23. Is the Security Maintenance 
Program required for this 
application? If yes, has 
SUP been completed? 
Items 5, 7b, 7i, 8 6 9. 


X 


X 


X 














) (PROGRA 4 

) (Transa:t- - - 

) (TERMIN \L- - - 


SOM 
SM 



SYSTEMS OPERATION CHECKLIST 



© ®© 



© 



© 



© 



© 



© 



© 



SYSTEM SECURITY 

DBDGEN PSBGEN DEFINITION MAINTENANCE 

MACRO OPERAND MACRO OPERAND MACRO OPERAND CONTROL DATA 



DETAIL IN 

WHICH 

MANUAL 



24. Concerning the Master Terminal 
and the machine operation 
function: 

a. Have the instructions to 
the MT operator about the 
types of checkpoints 
been delineated? 






X 


















SOM 
MOM 


b. Have the instructions to 
the MT operator about 
the restart procedures 
been delineated? 






X 


















SOM 
MOM 


c . Has an operating plan 
been worked out between 
the MT operator and the 
computer console bperator 
for the system log tapes? 






X 


















SOM 
MOM 


d. Are the types of system 
shutdown procedures 
described? 






X 


















SOM 
MOM 


e. Have the instructions for 
alternate master terminals 
been delineated? 






X 


















SOM 
MOM 


f. Is the remote terminal 
trouble procedure 
adequate? 






X 


















PDM 
SOM 
MOM 


g. Have adequate IPL 
instructions been 
delineated? 






X 


















SOM 
MOM 


h. Has a group of command 
language verbs been re- 
stricted to entry from 
the master terminal? 


















) (COMMAND 


VERB 




25. Make necessary coordination 
to handle system ABENDS, 
error conditions, and 
trouble reports. 
























PDM 
SOM 
MOM 


26. Have schedules been planned 
for system checkpoint, data 
base dumps, and 
reorganization? 






X 


















SOM 
MOM 


a. Has a number been 

specified that indicates 
a checkpoint log 
frequency? 






X 










IMSCTRL 


CKPT 






SOM 
MOM 
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CHAPTER 2. SYSTEM DISTRIBUTION, HANDLING, AND MAINTENANCE 



SYSTEM DISTRIBUTION 

The distribution of Information Management System/360 (IMS/360) is 
made on unlabeled, nine-track, 800-bpi or 1600-bpi magnetic tape, or 
unlabeled, seven-track, 800-cpi magnetic tape. The seven-track tape 
requires the data conversion feature. The distribution is composed of 
two tapes. The basic distribution tape includes two data sets: 

| • IMS/360 Macro-Definition Library (IMS.GENLIB) 

o IMS/360 Load Module Library (IMS. LOAD) 

The optional distribution tape includes one data set, which should be 
ordered: 

• IMS/360 Source Module Library (IMS. SOURCE) 

The nine-track tape distribution is recommended because two 
nine-track tapes are required for IMS/360 teleprocessing execution. The 
three data sets are unloaded copies of direct access partitioned data 
sets. They have been moved to tape using the IBM Operating System/360 
IEHMOVE utility program. When the IMS/360 user receives the IMS/360 
distribution tape(s), the IEHMOVE program should be employed to copy 
these data sets to direct access storage (Figure 2) . The following Job 
Control Language statements and utility control cards should assist in 
the copy execution. The user should allocate each of the IMS/360 
distribution libraries before the move to disk. See the IMS/360 
Application Directory for recommended space allocation on direct access 
devices. The DCB attributes for the IMS.GENLIB and IMS. SOURCE data sets 
should be the same as SYS1.MACLIB. The DCB attributes for the IMS. LOAD 
data sets should be the same as SYS1.LINKLIB. 

The IMS/360 sample problem as defined in Chapter 8 uses the same Job 
Control Language statements and utility control statements as listed 
here. 
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BASIC 




IEHMOVE 
(COPY) 



IMS . GENLIB 



IMS . LOAD 



IMS . SOURCE 



Figure 2. IEHMOVE to direct access storage device 

Nine- Track Tape 



//COPY 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//SYSDT1 


DD 


//TAPE1 


DD 


/ / 
// 




//DISK1 


DD 


//TAPE2 


DD 


// 




// 




//DISK2 


DD 


//SYSIN 


DD 




COPY 




COPY 




COPY 



8 U 8 , NAME , MSGLEVEL=1 

PGM=IEHMOVE , REGION=l OK 

SYSOUT=A 

UNIT= 2311 , DISP=OLD , VOLUME= SER =111111 

UNIT= (2U00JJ*,, DEFER) ,DISP=OLD„ X 

VOLUME=SER=SCRTCH , DCB= (LRECL=8 , X 

RECFM=FB, BLKSIZE=800,DEN=2 ) , LABEL= ( ,NL) 

UNIT= 2311 r DISP=OLD f VOLUME=SER =ILIB01 

UNIT=(2400 = U # f DEFER) ,DISP=OLD, 

VOLUME=SER=SCRTCH , DCB= (LRECL=8 , X 

RECFM=FB , BLKSI ZE=8 , DEN=2 ) , LABEL= ( ,, NL) 

UNIT= 2311 , DISP=OLD , VOLUME=SER =ILIB 2 

* 

PDS= IMS. GENLIB, X 

FROM= 2a00-q= ( SCRTCH , 1 ) , X 

TO =2311=ILIB01 , FROMDD =TAPEl 

PDS=IMS . LOAD f FROM =2U00-U = ( SCRTCH t 2 ) , X 

TO =2311=ILIB01 , FROMDD =TAPEl 

PDS=IMS . SOURCE , FROM =2U00-U = ( SCRTCH , 1 ) , X 

TO=2311=ILIB02, FROMDD=TAPE2 



/* 
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//COPY2 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//SYSUT1 


DD 


//TAPE1 


DD 


// 




// 




// 




//DISK1 


DD 


//TAPE2 


DD 


// 




// 




// 




//DISK2 


DD 


//SYSIN 


DD 




COPY 




COPY 




COPY 



Seven-Track Tape 

848, NAME ,, MSGLEVEL=1 

PGM=IEHMOVE, REGION=100K 

SYSODT=A 

UNIT= 2311 , DI SP=OLD , VOLUME= SER =111111 

UNIT= ( 2400-2 ,, , DEFER) , DISP=OLD , X 

LABEL=(,NL), X 

VOLDME=SER=SCRTCH , DCB= (LRECL=8 , X 

RECFM=FB , BLKSI ZE=8 , DEN=2 , TRTCH=C ) 

DNIT= 2311 , DI SP=OLD , VOLUME=SER =ILIB01 

UNIT= ( 2400-2 ,, , DEFER) , X 

DISP=OLD , LABEL= ( # NL), X 

VOLUME=SER= SCRTCH , DCB= (LRECL=8 , X 

RECFM=FB, BLKSIZE=800 , DEN=2 , TRTCH=C) 

UNIT=2311 , DISP=OLD, VOLUME=SER =ILIB02 

* 

PDS=IMS . GENLIB , TO =2311=IBIL01 , X 

FROM =2U00-2 = ( SCRTCH , 1 ) , FROMDD =TAPEl 
PDS=IMS . LOAD , TO =2311=ILIB01 , X 

FROM =2400-2 = ( SCRTCH , 2 ) , FROMDD =TAPEl 
PDS=IMS . SOURCE , TO =2311=ILIB02 , X 

FROM= 2000-2= ( SCRTCH , 1 ) , FROMDD=TAPE2 



/* 



Those parameters which are underlined are user-specifiable (for 
example, 2314 rather than 2311) . The region parameter is required only 
for Operating System/360 MVT execution. Generic name 2400- 4 is 
nine-track at 800-bpi with DCB=(DEN=2); generic name 2400-2 is 
seven-track with data conversion at 800-bpi with DCB=(DEN=2). 

If the SYS1.MACLIB data set DCB characteristics are not 80-character 
records, blocked 44, a preallocated IMS. GENLIB partitioned data set 
should be used in the move from tape to disk. The DCB characteristics 
for IMS. GENLIB should be equated to SYS1.MACLIB. 



SYSTEM HANDLING 

Once the IMS/360 libraries have been copied from the distribution 
tape(s) to direct access storage, the user can begin to tailor IMS/360 
to his data processing environment. The tailoring of IMS/360 to a 
particular user's data processing environment is accomplished with the 
IMS/360 system definition macro- instructions contained within 
IMS. GENLIB. The IMS/360 system executes with a collection of control 
blocks that describe the user's data processing environment: 
application programs, data bases, communication lines and terminals, and 
other IMS/360 resources. The system definition process constructs these 
control blocks. 

The IMS/360 user must prepare a control card input deck for IMS/360 
system definition. The control card types and formats are described 
later in this manual. Once the control card deck has been prepared, it 
is appended to a package of Job Control Language for the 
macro-instruction assembly of system definition. System definition is 
required if either an online message processing and batch processing or 
a batch-only processing system is desired (Figure 3) . 
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{ JCL 



SYSTEM 

DEFINITION 

INPUT 



„ IMS . LOAD 
**.«._ ^* 

IMS . GENLIB 



SYSIN 



SYSTEM 

DEFINITION 

EXECUTION 

^* 




SYSLIB 



IMS.MACLIB 
(SYS1.MACLIB) 



IMS.PROCLIB 
(SYS1.PROCLIB) 




IMS. RESLIB 
(SYS1.LINKLIB) 



SYS1.SVCLIB 
SYS1.LINKLIB 



Figure 3. System definition handling 



The output from IMS/360 system definition includes: 

• Generation and placement in the user-named target load library of 
IMS/360 control program control blocks 

• Generation of the IMS/360 control program nucleus into the 
user-named target load library 

• Generation and placement in the user-named target load library of 
the Type 3 region Data Language/I batch processing nucleus 

• The linkage edit of three user supervisor calls (SVC's), two of 
which are used for interregion communication and one for OSAM 
multi volume execution. These are placed in the RESLIB target 
library. The user can specify the desired SVC numbers.. 

• The naming and creation of the OSAM channel end appendage module in 
the RESLIB library. The user can specify the module name and must 
move the module to SYS1 . SVCLIB . 

• The moving of procedures to user or SYS1.PROCLIB. These procedures 
are used for data base description (DBD) and program specification 
block (PSB) generation, IMS/360 execution, message region execution, 
batch region execution, etc. 

• The creation of IMS.MACLIB 
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Once IMS/360 system definition has been performed, the three SVC 
routines must be link-edited with the Operating System/360 nucleus. 

The IMS/360 user must have provided for two Type 1 user SVC routines 
and one Type 2 user SVC routine in his Operating System/360 system 
generation. If the system definition is for Type 3 region batch 
execution only, the Type 2 user SVC is all that is reguired. This SVC 
is used by OSAM. The procedure for relink-editing the Operating 
System/360 nucleus with the user SVC routines is specified in Chapter 4 
of this manual. 

Once system definition and the SVC-Operating System/360 nucleus 
link-edit is performed, the user must allocate direct access space for 
the DBD and PSB libraries. In addition, if online processing is 
desired, space should be allocated for message gueue data sets. All 
these data sets should be cataloged. Chapters 3 and 4 of this manual 
describe the execution of these functions. 

Finally, the user is ready to create DBD f s, PSB's, and application 
programs. Before any message processing may be performed, the reguired 
data bases must be created in the Type 3 region batch environment. 

SYSTEM MAINTENANCE 

Permanent modifications and corrections to problems encountered with 
the IMS/360 system will be provided with updated program modules through 
a new mod-level distribution of all these IMS/360 libraries. These 
mod-level distributions will be provided on a periodic basis. The 
IMS. SOURCE library will provide a vehicle for convenient, guick 
maintenance of PTF's (Program Temporary Fix). If the system user orders 
and maintains the source module library, corrections to erroneous 
IMS/360 modules can be distributed over the SECOM network. This 
maintenance distribution of PTF*s through SECOM is in a format 
acceptable to the Operating System/360 utility program IEBUPDTE. The 
IMS/360 user will update the appropriate IMS/360 source or 
macro-definition member, assemble the affected modules, and link-edit 
the new copy of the module into IMS. LOAD. The IMS/360 system definition 
may have to be performed again if macro-definition statements have 
changed. For source-only update distributions, reprocessing of IMS/360 
load modules by the linkage editor will ordinarily suffice. 
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CHAPTER 3. SYSTEM DESIGN CONSIDERATIONS 



IMS/360 PROCESSING REGIONS 

This section of Chapter 3 describes the system flow of control within 
and between each type of IMS/360 system region or partition. Region 
types are described in the IMS/360 Program Description Manual. The 
communication between regions when necessary is supplied through two 
user-defined Type 1 supervisor call routines (SVC's). The control 
within the Type IMS/360 control program region, where multiple 
input/output operations are occurring asynchronously, is provided by use 
of the Operating System/360 multiple wait capability. To assure 
compatibility between Operating System/360 MFT and MVT, the IMS/360 
control program does not use Operating System/360 multitasking to 
execute asynchronous input/output operations. 

Type and 1 Processing Regions System Flow 

Once the Type region containing the IMS/360 control program and one 
or more Type 1 regions to be utilized for the message processing have 
been initiated by the job management facilities of Operating System/360, 
the following system flow occurs ("Events" refer to Figure 4) : 

1. The control facility of the IMS/360 program region gives control 
to the telecommunications facility (Event 1) for communication 
with the master terminal. From the master terminal, commands 
(Event 20) are entered to enable communication with all user 
terminals and to restart the system (Event 24). 

2. The restart facility, using a previous copy of the system log, 
restarts the system with current status and any outstanding 
messages from the previous system execution. The system can be 
started without a previous system log if the cold start option is 
taken. 

3. The restart facility returns (Event 24) to the telecommunications 
facility, which enables the master terminal operator to initiate 
communication to all user terminals. 

4. The telecommunications facility returns to the control facility 
(Event 1) . When an input message or message line is received 
(Event 2) , the telecommunications facility is again given control 
(Event 1). The common service facility is invoked (Event 3) , the 
input message is queued and logged (Event 4), and control returns 
through the telecommunications facility to the control facility. 

5. Steps 3 and 4 are repeated until an entire message is received. 
Upon receipt of an entire message, the telecommunications 
facility notifies the message scheduling facility of input 
available to scheduling for processing (Event 5) . 

6. The control facility in a message processing region notifies the 
control facility in the IMS/360 control program region (Event 6) , 
through a resident SVC, that a message processing region is 
available for scheduling. 

7. When there are input messages pending and a message region is 
available for scheduling, control is passed to the message 
scheduling facility (Event 7) to determine the application 
message processing program to be scheduled. Control is returned 
through the control facility by another resident SVC (Event 8) to 
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the message region. The application program is loaded and given 
control (Event 9). 

8. The message processing application program subsequently makes 
requests for the input message, and possibly for data base 
references (Event 10), through the control facility (Event 6). 
The control facility passes control to the Data Language/I 
facility (Event 11) either for data base reference (Event 16) or 
for message reference (Event 13) . The message reference is 
accomplished through the common service facility (Event 12). 

9. Whether the data represents a message or a data base segment, it 
is communicated to the application program (Event 14) , and 
control is returned to the application program (Events 11, 8, 
15). 

10. The application program uses the same routine of control (Events 
10, 6, 11, 13) for sending output messages. 

11. When the application program terminates, control is returned to 
the control facility (Event 26) in the IMS/360 control program 
region (Event 6) . 

12. The control facility passes control to the message scheduling 
facility (Event 7), which notifies the telecommunication facility 
(Event 27) of pending output. 

13. Subsequently, control passes to the telecommunication facility 
(Event 1) to allow output messages to be transmitted. The common 
service facility is invoked (Event 3) , and the message is 
retrieved from the message queue (Event 4) and transmitted (Event 
8). 

14. At periodic intervals, based upon either message volume or 
notification from the master terminal (Event 20) , a checkpoint of 
the system occurs. The telecommunications facility gives control 
to the checkpoint facility (Event 21) for writing status on the 
system log. The common service facility is invoked for this 
purpose (Event 23). 
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Figure 4. IMS/360 Type 1 and Type 2 processing region system flow 

Type 2 Processing Region System Flow 

Once the IMS/360 regions associated with teleprocessing have been 
initiated by Operating System/360, a Type 2 processing (batch) region 
can be initiated. This Type 2 processing region may contain an 
application program for processing against teleprocessing data bases in 
the batch manner. The application program in the batch region is 
scheduled by Operating System/360 job management, but may utilize the 
Data Language/I facility for teleprocessing data base reference (Figure 
4) . An application program executed in a Type 2 processing region can 
only access IMS/360 data bases which are defined in the IMS/360 Type 
region ("Events" refer to Figure 4) . 

1. Any data reference is initiated by the batch application program 
(Event 17) through the control facility (Event 6) . 

2. Control is given to the control facility in the IMS/360 control 
program region. Control is then passed to the Data Language/I 
facility (Event 11) to reference the data bases (Event 16) . 



3. The data base segment requested is supplied to the application 
program (Event 19) , and control returns through the control 
facility to the application program (Events 11, 8, 18). The data 
base request may be an addition, update, or deletion of a data 
base segment. The flow of control is identical in each case; 
however, the data base segment is supplied from the application 
program (Event 19) to the data base (Event 16) . 

A Type 2 processing region, in addition to being able to process data 
bases used for message processing, has access to input message queues 
and can output to the message queues. The access to the input message 
queues is provided by specifying a transaction type to which access is 
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desired in the Job Control Language (JCL) for a Type 2 region. Access 
to the output message queues is provided by specifying output terminal 
PCB's in the PSB for the application program which executes in the Type 
2 processing region. The IMS/360 Program Description Manual describes 
output terminal PCB's. The JCL used for a Type 2 processing region is 
specified in Chapter 4 of this manual. 

Type 3 Processing Region System Flow 

Whether or not the teleprocessing capabilities of IMS/360 exist among 
jobs executing under Operating System/360, the Data Language/I facility 
of IMS/360 can be used in a nonteleprocessing data base batch 
environment ( "Events" refer to Figure 5). 

1. The application program for Type 3 processing (nonteleprocessing 
data base batch processing) is initiated through the job 
management routines of Operating System/360 (Event 1). 



2. Then the Data Language/I facility is invoked (Event 2) . The highest 
level Data Language/I module analyzes the data base call request. 
Depending upon the I/O function requested in the call, the insert 
(Event 11), the retrieve (Event 3), the load (Event 15), the HSAM 
(Event 16), or the delete/replace (Event 12) module is invoked. 
These modules subsequently invoke either the ISAM modules (Event 

4) or the OSAM modules (Event 5) to reference the data base. 

3. The data segment is moved to or from the application program's 
I/O work area and the data I/O buffers used by the access method 
(Events 8, 9). 

4. Also, the data segment is moved to or from the I/O buffers and 
the data sets representing the data base (Events 6„ 7, 13, 14). 

5. After the Data Language/I I/O request has been completed,, control 
is returned from either ISAM or OSAM (Events 4, 5) to one of the 
Data Language/I modules. Subsequently, control is returned to 
the Data Language/I analyzer module (Events 3, 11, 12) and 
finally to the application program (Event 10). 



19 



OS/360 NUCLEUS 



— h 
ll 



117 



APPLICATION 
PROGRAM 
FOR 

DATA LANGUAGE/ I 
DATA BASE 
BATCH 

PROCESSING 
ot 

8A 



H 



. CONTROL FACILITY 

L -^- -| ; 10 



11 



15 



LOAD 
MODULE 



CALL 
ANALYZER 



INSERT 
MODULE 



3i 



RETRIEVE 
MODULE 



41' 



L „ 1 . 



5! 



ISAM 



13 



12 



16| 



DELETE/ 
REPLACE 
MODULE 



HSAM 
MODULE 



OSAM 



DATA 
BASES 



BSAM 



REGION TYPE 3 



CONTROL FLOW 
DATA FLOW 



Figure 5. IMS/360 Type 3 processing region system flow 

There is a capability in a Type 3 processing region to specify 
through Job Control Language (JCL) parameters a PSB and an application 
program with different names. Normally there is a one-to-one 
relationship between PSB and application program. However, the ability 
to specify different PSB's for one application program opens the door 
for the user of IMS/360 to create some general purpose "utility 
programs'* which use multiple PSB's (one at a time). Chapter 4 of this 
manual describes the JCL available to assist in implementing this 
capability. 



When the data bases normally used for message processing are not 
being used for that i>urj?ose, they may be processed in a Type 3 

/This is permitted when the IMS/360 



processing region 
is not operative as 
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I Impact Of MFT and MVT on IMS/ 3 60 

Certain features in the MFT and MVT operating system options 
substantially affect the performance of IMS/360. 

One of the major differences is the support of Operating System/360 
in the area of storage management. Storage management for MVT is 
| extended to include subpool management, whereas, under MFT, storage 

management resembles PCP storage management; that is, supervisor control 
blocks are not resident in system queue space, and modules of code are 
| packed contiguously in an MFT partition. Under MVT, the storage 

management algorithm is based upon use of 2K blocks of storage as the 
minimum quantity that can be manipulated by the storage management 
facility. In addition, in MVT, FETCH= routines may make a different 
| subpool call to storage management based upon module attributes. MFT is 
essentially transparent to the usability attribute of a load module. As 
a result, certain IMS/360 load modules will reside in protection key 
j storage within the problem program region in MVT, whereas under the MFT 
j environment these modules will essentially be unprotected from 
' modification. Since MVT does provide the added feature of protected 
code in the problem program region, it may be desirable at the time the 
system is defined that the IMS/360 resident library (that is, the 
library in which all IMS/360 executable modules will reside) be in fact 
either SYS1.LINKLIB or SYS1 . SVCLIB . One of these two libraries should 
be specified, since these are the only two from which Fetch will store 
in protect code core in the problem program region. 

| Another consideration in the differences between MFT and MVT is in 
system timing,. In Type 0, 1, 2, and 3 regions, the TIME= parameter for 

| job step timing is available, whereas in an MFT environment this 
capability is not implemented. This should not be considered a 

| disadvantage of MFT; however, the user should be aware that, since the 
IMS/360 regions will be expected to persist for many hours of continuous 
operation, it is necessary to specify the TIME= parameter in the job 
card which initiates the various types of regions. If the TIME= 
parameter is not used and job step timing has been selected at Operating 
System/360 system definition time, the default time which appears in the 
reader procedure used to read the IMS/360 JCL will apply, and IMS/360 in 
any of its various type regions will be terminated abnormally by 
Operating System/360. 

It appears that the starting of region Types and 1 will normally be 
| done through a procedure. In both MFT and MVT, reader procedures can be 
written which in turn invoke full job procedures from a user procedure 
library or SYS1.PROCLIB. However, in the case of Type 2 and Type 3 
regions, the JCL that initiates these regions will normally be read in 
through the user's input stream; the responsibility, therefore,, for 
placing a time parameter in the job card becomes the user*s. 

Another consideration is the dispatching priority of the running 
IMS/360 region type. In an MVT environment, the priority scheduler 
selects from a given class input queue the top priority job for 
initiation and creates a task control block which functions within the 
system at some relative dispatching priority related to the job 
| selection priority. In MFT, however, dispatching priority is controlled 
| by the partition number into which a job is scheduled. The normal MFT 
J algorithm is that partition has the highest priority, and partition n 
has the lowest priority. An IMS/360 Type 1 region operating in an MVT 
environment will CHAP itself below the dispatching level of the Type 
| region if possible. However, in an MFT environment, this is not 

possible. The IMS/360 Type 1 region will terminate with an abnormal 
| completion code. So, in an MFT environment, the IMS/360 region Types 
and 1 should have the same relative partition relationship; that is, 
IMS/360 should be in a partition number lower than Type 1 and 2 regions. 
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Another difference in IMS/360 operating characteristics under MFT and 
MVT is abnormal termination of Type 1 (message processing) and Type 2 
(batch against online data bases) processing regions. Under MVT, the 
application program in either of these region types is ATTACHed as an 
Operating System/360 subtask. If the subtask abnormally terminates, the 
higher level controlling task communicates to the IMS/360 control 
program that abnormal termination has occurred. The resources used by 
the application program in the IMS/360 control program are released 
(that is, data base buffers, message type, the program, and the data 
bases). In the Type 1 region (message processing), the Operating 
System/360 job is not terminated, and scheduling of another message 
processing program occurs. Using MFT, the IMS/360 control modules and 
the application program in a Type 1 or Type 2 processing partition are 
part of the same Operating System/360 task. If the application program 
abnormally terminates, the entire Operating System/360 job terminates. 
The resources used by the Type 1 processing partition within the IMS/360 
control program are not released until another message partition control 
module is started in the same partition. Through the use of MFT class 
initiations, the user should immediately initiate another message 
partition control module in the same partition. A good practice may be 
to "stack" another copy of the message partition control JCL in the 
input queue for that job class. The loss of the message partition will 
cause the next copy to be initiated in the same partition. The first 
call to the IMS/360 control program by the new message partition job 
causes the IMS/360 control program to release resources used by the 
ABENDed program. 

ESTIMATING STORAGE AND MACHINE REQUIREMENTS 

One of the things that must be planned for is the storage 
requirements of an Operating System/360- IMS/360 installation. Although 
the basic formula for estimating resident storage requirements of 
IMS/360 is contained in the IMS/360 Application Description Manual 
(GH20-0524) , further detail and examples are contained in this section. 
The techniques provided in this section allow the system user to obtain 
a more accurate storage estimate than that in the IMS/360 Application 
Description Manual. Do not attempt to mix partial estimates obtained 
from the following techniques and those obtained from the Application 
Description Manual. 

Estimating IMS/360 Type Region Main Storage Requirements 

The main storage requirements for the Type region are influenced by 
the num ber of data bases def ined, t he nu mber of telecommunica tion lines 
and line groups, -bhe type oi te lecommunication terminals -bo pe 
supported, the bu ffer requirements to support defined data bases, and 
MA XIO specificatio n in the IMSCTRL macro statement of system definition, 
performance requxrements, etc. IMS/360 system definition supplies a 
procedure, IMSO, for the IMS/360 Type region. The IMSO procedure 
supplies default parameters in the EXEC card for REGlON= and PARM= 
operands. These operands determine region size and region storage 
usage. The IMSO procedure also provides definition of the positional 
characters in the PARM= operand. The following data should assist the 
user in determining an initial region or partition size. After proper 
analysis, the user may wish to change the default values in the IMSO 
procedure. Chapter 4 of this manual provides an illustration of IMSO 
procedures . 

The storage requirements estimates are discussed under the following 
headings: 

• Basic Storage Requirements 

• BTAM Device Support 
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• IMS/360 Control Blocks 

• IMS/360 Buffer Pools 
Basic Storage Requirements 

IMS resident nucleus (less control blocks) 60,000 bytes 

Data Language/I action modules 12 , 800 

OSAM access method modules 2,900 

ISAM and IMS ISAM simulator modules 7,800 

BTAM (less device support modules) 6,600 



90,100 bytes 



BTAM Device Support 



Add to the basic storage requirements, BTAM device modules for each 
line group described at IMS/360 system definition. 

1050 nonswitched without autopoll 224 bytes 

1050 nonswitched with autopoll 234 

1050 switched 328 

2740 with dial, transmit control, and checking 304 

2740 with station control and checking 240 

2740 with station control, checking, and autopoll 224 

2260 remote 272 

IMS/360 Control Blocks (Except Security) 

Add to the basic storage requirements the size of the control 
block load module from the linkage editor output of Step 36 of Stage 2 
of IMS/360 system definition- If the system user has not performed an 
IMS/360 system definition, the following should allow a control block 
estimate. The exact size of the control blocks may be calculated by 
referring to Chapter 11 of the IMS/360 System Manual. 

Basic block requirement 

Per message or Type 2 batch program 

Per online data base 

Per communication line 

Per communication terminal 

Per logical terminal (at least one per 

communication terminal) 
Per transaction code 
Per message or Type 2 batch region 

Security Control Blocks 

If the extended password and terminal security facilities are used, 
there are additional main storage requirements beyond those required by 
the resident control blocks generated during system definition. 
Security matrix bounds and main storage requirements may be determined 
using the following formula: 

(1/8) * R = M = <32767 
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where: 

M is the total main storage requirement in bytes. 

I is the number of securing resources (passwords or logical terminals) 

R is the number of unique combinations of secured resources. 

The storage requirements for the password table may be determined 
using the following formula: 

P = L * N 

where : 

P is the total main storage requirement in bytes. 

L is the length in bytes of the longest password. L can vary from one 
to eight characters inclusive. 

N is the number of passwords = < 32768. 

Examples of security control blocks: 

1. Terminal security 

Assume 200 logical terminals as securing resources, and 

100 unique combinations of secured resources 
(transactions, command verbs, etc.) 

(200/8) * 100 = 2500 < 32768 

Terminal security storage = 2500 bytes 

2. Password security 

Assume 400 passwords as securing resources (maximum password 
length is four characters) , and 

200 unique combinations of secured resources 
(transactions, command verbs, etc.) 

(400/8) * 100 = 5000 < 32768 

Password table 400 * 4 1600 bytes 
Password matrix 5000 

Password security storage 6600 bytes 

IMS/360 Buffer Pools 

IMS/360 requires a set of buffer pools for communication line 
buffers, message queue buffers, data base control block buffers, and 
data base buffers. The storage requirement for these pools must be 
added to the basic storage requirement for the IMS/360 region size. 

The following pools are required: 

• Queue control record (QCR) and message buffer pool 

• Data base buffer, output message buffer, and 2260 buffer pool 

• PSB control block pool 

• DMB control block pool 
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QCR and Message Buffer Pool . One queue control record buffer is 
required for each input 2740 and one for each 1050 telecommunication 
line to be serviced. Step 4 of Stage 2 of IMS/360 system definition 
adds the procedure to the user-defined procedure library named IMSO. 
The calculated number of OCR buffers required is defined in the DDD 
positions of the PARM= operand on the EXEC card. In that procedure, a 
number of message buffers are defined in the EEE positions of the PARM= 
operand for the system defined by the user. Message buffers are 
utilized for handling multiline messages. 

The main storage requirements for these buffers may be determined by 
using the following sizes per buffer: 

Queue control record buffer 176 bytes 

One QCR buffer is required for each input communication line and 
each message region. 

Message buffer 880 bytes 

One message buffer is required for each simultaneous input or 
output request for a multisegment message. 

Data Base Buffer Pool . When a program is scheduled into a message 
region or when a Type 2 batch program is scheduled,, the buffers required 
for the data bases used by that program are obtained from a general data 
base buffer pool. When the application program terminates, the assigned 
buffers are returned to the pool. The output of each DBD generation 
Step 2 (linkage editor) includes a SETSSI value produced in Step 1. 
This value is the data base buffer byte requirement in hexadecimal 
required for use of the data base by an application program in an 
IMS/360 Type 1 or 2 region. If data base logging is specified for any 
data base referenced by a message or batch Type 2 program, the size of a 
message buffer (80 bytes) plus 72 bytes (152 bytes total) must be added 
to the total buffer requirements for that program. The pool of data 
base buffers provided for use in the IMS/360 Type region must be at 
least as large as that required by the message program or batch program 
in a Type 2 region which uses the largest number of data base buffer 
bytes. As an example, assume that program X, the largest user of data 
base buffers,, uses three data bases which require 5000 bytes of buffer 
storage each. The absolute minimum requirement for the data base buffer 
pool will be 15,000 bytes. If more than one Type 1 or 2 region is to 
execute concurrently, the data base buffer pool must be large enough to 
obtain the buffers for the data bases to be used in each message and 
Type 2 region concurrently,. If the data base buffer requirement 
associated with an application program cannot be satisfied at the time 
the program is to be scheduled for execution, IMS/360 will wait until 
buffer space becomes available . The IMSO procedure provides a default 
size for the data base buffer pool in the HHH positions of the PARM= 
operand of the EXEC card. 

In addition to data base buffers, space in this pool is used to 
supply buffers during a /DBDUMP execution. These additional buffers are 
used for the HSAM data base image of the HISAM data base to be dumped. 
The total buffer space requirement is equal to twice the buffer 
requirement for the largest data base to be dumped. 

2740/1050 Output Line Buffer Pool . Output messages to be transmitted 
via communication lines are read from queue control record and message 
buffers, edited to include line control characters, translated, and 
placed in output line buffers. Output line buffers are contained in the 
output line buffer pool. The size of this pool is defined by the HHH 
positions of the PARM= operand of the EXEC card in the IMSO procedure. 
The value specified for the HHH positions of the PARM= operand should 
include the output line buffer pool requirements in addition to the data 
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base buffer pool requirements. A reasonable pool size requirement might 
be 200 bytes per buffer and one buffer per three output 2740/1050 
communication lines. However, if response is inadequate, the number of 
buffers should be increased. 

2260 Line Buffer Pool . Buffers required for communication line control 
operations with a 2260 terminal are obtained from the 2260 line buffer 
pool. The size of this pool is defined by the HHH positions of the 
PARM= operand of the EXEC card in the IMS0 procedure. The value 
specified for the HHH positions of the PARM= operand should include the 
2260 line buffer pool requirements in addition to the 1050/2740 output 
line buffer and data base buffer pools. One buffer of 1000 bytes should 
be included for each active 2260 line. 

PSB and DMB Pool Sizes . A control block called a PSB exists on the PSB 
library for each message or batch Type 2 program. This block is loaded 
into core storage when the program is scheduled, and is retained as long 
as possible. The PSB is maintained in the PSB pool. A control block 
called the DBD also exists on the DBD library for each data base. This 
block is loaded into core storage and modified to create a DMB when the 
data base is initially used. The DMB is retained as long as possible in 
the DMB pool. The DMB contains DCB's for the data base in an OPEN 
state. The ability of IMS/360 to retain PSB's and DMB's in core depends 
upon their respective pool sizes. 

The sizes of the PSB and DMB pools are determined by the values 
specified in the FFF and GGG positions of the IMS0 procedure PARM= 
operand. A default value is assigned by IMS/360 system definition to 
the FFF and GGG positions of the IMS0 procedure PARM= operand. These 
values must be at least large enough to contain the largest PSB as 
expanded during loading and all DMB's required by the application 
program that uses the largest number of data bases. 

The size of a typical PSB is 500 to 1000 bytes. The size of a 
typical DMB is 600 bytes per data set group in the data base. The more 
PSB's and DMB's that remain resident, the greater the performance of the 
IMS/360 system. The maintenance of PSB's and DMB's in their respective 
pools is based upon frequency of use. The more often, a program is 
scheduled and its data bases accessed, the greater the probability of 
retention of the block in core storage. The user can retain all PSB's 
and DMB's in core if the pools are defined large enough. 

When a PSB is removed from the PSB pool to accommodate a new PSB, all 
DMB's used by that PSB and not concurrently used by other PSB's at time 
of PSB removal are removed from the DMB pool. This means the closing of 
the associated data sets. The user may avoid the removal of HISAM DMB's 
through the use of the second position in the PARM= operand on the EXEC 
card of the IMS0 or IMS1 procedure. However,, the user must stipulate a 
DMB pool large enough to accommodate all HISAM DMB's used for online 
processing and his largest HSAM DMB or the HSAM DMB used in data base 
dump for the largest HISAM data base. 

PSB Size Calculation. The exact main storage occupancy for a PSB may be 
calculated by adding the size of the PSB prefix (PSBPFX) , the size of a 
teleprocessing program communication block (TPCBSZ), and the size of 
each data base program communication block (DPCBSZ). The formula for 
the calculation is: 

PSBSIZE=PSBPFX + (TPCBSZ*n) + DPCBSZ, .. .+DPCBSZn 
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where : 

PSBPFX = 4U bytes 

TPCBSZ =96 bytes if the PSB generation PSBGEN statement contains the 
keyword LANG = PL/I 

= 40 bytes, if keyword LANG=COBOL or ASSEM 

DPCBSZ = 112+(132*DSGn)+(44*SSEGn) + (LEVs*LEVn)+MKFBs + (12*FLDn) 

where: 

DSGn = number of data set groups defined; varies from 1 through 
9 

SSEGn = number of sensitive segment names defined; varies from 1 
through 255 

LEVs =16 bytes plus the length of largest key field as defined 
by a FLDK statement in the associated data base 
definition, rounded up to the next fullword 

LEVh = number of levels in the data base hierarchy; varies from 
1 through 15 

MKFBs = length of maximum concatenated key as specified in the 
KEYLEN = keyword of the PCB statement 

FLDn = number of FLD statements in the associated data base 
definition 

Note: If the DBDUMP command is to be used, the PSB pool must be large 
enough to contain a PSB that is twice the size of the largest 
possible data base PCB plus the PSBPFX size. 

DMB Size Calculation- The exact storage occupancy for a DMB may be 
calculated by adding the size of the DMB prefix to the size of the DCB's 
required for each data set group (DSG) that comprises the data base and 
the number of segment types times a constant. The formula for size 
calculation is: 

DMBSIZE = [(IDCBSZ + ODCBSZ + DSGPFX) * DSGN] + DMBNSZ + (NSEGT * 4) 

which reduces to: 

DMBSIZE = (U88 * DSGN) + 8 + (NSEGT * U) 

where: 

IDCBSZ = 252 bytes for an ISAM DCB 

ODCBSZ = 228 bytes for an OSAM DCB 

DSGPFX = eight bytes 

DMBNSZ = eight bytes for DMB name 

NSEGT = number of segment types, where 0<NSEGT< 256 

DSGN = number of data set groups in the data base 

Operating System/360 Requirements 

Additional core storage is required in the IMS/360 Type region for 
some Operating System/360 modules and control blocks. In addition, when 
MVT is used, core storage is required in the system queue space area. 
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I MFT ; 

Task I/O Table (TIOT) = 28 + 16n + 4d 

n = number of DD cards 
| d = number of I/O devices 

Program Request Blocks (PRB) (two required) = 64 bytes 

Supervisor Request Blocks (SVRB) (at least one 

required) = 96 bytes 

Loaded Program Request Blocks (LPRB) (38 required) = 1520 bytes 

Data Extent Blocks (DEB) - 160 bytes each 

(one required per communication line group) 

(five DEB's required for log and message queues) 

(one DEB per ISAM data set in each data base) 

Data Set Integrity (see MVT) 

System Fetch Work Area 390 bytes 

OPEN/CLOSE/EOV Work Area 1200 bytes 

ABEND Work Area 1000 bytes 

Input/Output Blocks (IOB) 136 bytes 

(one IOB per communication line) 

(two IOB*s per data set) 

MVT ; The MVT requirements are divided between the space required in 
System Queue Space and the IMS/360 Type region. 

System Queue Space: 

TIOT = (28 + 16n + 4d) bytes 
n = number of DD cards 
d = number of I/O devices 

Main Storage Control Blocks and Misc. 500 bytes 

PRB's (two required) 64 bytes 

SVRB (one required) 96 bytes 

LLE,XL r 6 CDE (40 required) 1760 bytes 
DEB's - 160 bytes each 

(one per communication line group) 

(one per ISAM data set) 

(two per OSAM data set) 

(five for log and message queues) 

TCB f s (three required) 504 bytes 

Data Set Integrity Queue Blocks 

sum of nd (14 + L) where nd is number of data sets 
allocated and L is number of bytes in the data set 
name including concatenation characters 
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Type Region: 



System Fetch Work Area 
OPEN/CLOSE/EOV Work Area 
ABEND Work Area 
IOB's - 136 bytes each 



2000 bytes 
1200 bytes 
2000 bytes 



(one per communication line) 

(two per data set) 

(ten for log and message queues) 

Total IMS/360 Type Storage Requirement 

The sum of the basic requirement, device support, control blocks, 
message and queue control record buffers, data base buffers, 1050-2710 
output message buffers, 2260 line control buffers, and PSB-DMB pool 
sizes represents a starting estimate of the region size value for 
IMS/360 execution. 

IMS/360 Type Region Estimates Example 

Assumptions : 

MFT 

16 - 2740/1050 communication lines (16 terminals) 

1 - 2260 line (four terminals) 

5 - data bases concurrently open 
10 - PSB's concurrently resident 

18 - data sets allocated, all of which have eight- character data set 
names 

2 - message regions 
20 - message programs 
40 - transaction codes 
20 - logical terminals 

IMS/360 Requirements 

Basic Storage Requirement 90,100 bytes 
2740 Station Control, Autopoll, Checking 224 

2260 272 

1050 - Nonswitched with Autopoll 192 

IMS/360 Control Blocks (Step 36 system definition) 18,000 



Pool Type 



EXEC Card 
Parameter 



QCR Buffers DDD=020 
Message Buffers EEE=005 
PSB Pool FFF=010 
DMB Pool GGG=003 
General Pool* HHH=020** 

* The General Pool includes: 

1. 1050/2740 Line Buffers 

2. 2260 Line Buffers 

3. Data Base Buffers 



Number of 
Buffers 

20 

5 
10 

3 



5 

1 

18 



Size of 
Buffers 

176 

880 
1000 
1000 



200 
1000 
1000 



Total 

3 , 520 
4,400 

10,000 
3,000 

20,000 



♦♦The HHH EXEC card parameter specifies the size of the general 
pool in multiples of 1000 bytes. 



y 



Total IMS/360 Requirements 



155,708 
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Operating System/360 Requirements 
TIOT = 28 + 16n + 4d 

17 - communication lines 
4 - message queue data sets 
2 - tape (log/data base recovery) 

23 

| 28 + (16 x 23) + (4 x 23) = 

PRB's (2) 

SVRB's (1) 

LPRB's (38) 

DEB's 1 - 1050 line group 

1 - 2740 line group 

1 - 2260 line group 

2 - tapes 

4 — message queues 
15 - data base, data sets « 

24 x 160 bytes 

Data Set Integrity 

18 data sets 
8 character names 

(14 + 8) * 18= 

Fetch Work Area 

OPEN/CLOSE/EOV Work Area 

ABEND Work Area 

IOB's 1 - per communication line = 17 

2 - per tape = 4 

2 - per message queue = 8 

4 - per data base = 20 

TOTAL IOB's 49 

49 x 136 bytes 

| Total Operating System/360 MFT Requirement 

Total IMS/360 Requirement 

| Total Operating System/360 MFT Requirement 

Total Partition Requirement 



488 bytes 
64 
96 
1520 



3840 



396 

390 

1200 

1000 



6,664 
21,558 

155,708 
21,558 

177,266 



In addition to this total partition storage requirement, storage is 
| necessary for message processing partitions,, the basic MFT nucleus, 
system writer (optional), and basic RAM area. 

Estimating IMS/360 Type 1 and Type 2 Region Main Storage Requirements 

The size of an IMS/360 Type 1 or Type 2 processing region is 
determined primarily by the size of the system user* s application 
programs. The only permanent requirement of IMS/360 is 2000 bytes in 
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each message or Type 2 batch region. Prior to loading the user's 
application program, IMS/360 requires an additional 4000 bytes to 
initiate the processing region. 

Estimating IMS/360 Type 3 Region Main Storage Requirements 

The core storage requirement within an IMS/360 Type 3 region is 
primarily dependent upon: 

• The size of the user's application program 

• The number of data bases to be used and their buffer requirements 

• The IMS/3 60-Data Language/I and Operating System/360 modules 
utilized 

Basic Modules 

The IMS/360 region control modules and the Data Language/I Type 3 
region nucleus require about 10,000 bytes. For initialization, about 
8000 additional bytes of work space are required prior to loading the 
user's application program. When the user's application program is to 
be loaded, these 8000 bytes of work space are available. 

Control Blocks 

Associated with each application program is a control block called a 
PSB, and associated with a data base is a control block called a DMB 
(data management block) . The exact formula for calculating PSB storage 
requirements will be found in the section titled "Estimating IMS/360 
Type Region Main Storage Requirements". Assume 2000 bytes for a PSB 
in the following example. A DMB for a single data set group data base 
is 500 bytes; a DMB for a multiple data set group data base is 500 bytes 
per data set group. As an example, a program that uses two data bases, 
one of which has one data set group and one of which has three data set 
groups, would require the following control block space: 

1 - PSB - 2000 bytes 2000 bytes 

1 - Single data set group DMB 500 bytes 

1 - Three data set groups DMB 1500 bytes 

Total IMS/360 control block space 4000 bytes 

Data Base Buffers 

The core storage requirement for all data base buffers associated 
with all data bases used by an application program in an IMS/360 Type 3 
region is obtained in that region. The creation of a data base 
description (DBD) associated with a data base is provided in a SETSSI 
statement. This SETSSI statement gives, in hexadecimal, the number of 
bytes required for data base buffers associated with the data base. The 
buffer requirements for a data base are equivalent to two times the ISAM 
data set block size for each ISAM data set plus four times the OSAM 
logical record length for each OSAM data set within the data base. 

Data Base Organization Modules 

In addition to the basic IMS/360 modules in a Type 3 region, various 
sets of data base organization modules are required. The need for these 
modules is dependent upon the type of data base organizations and 
processing options employed by the user's application program. The 
module sets and their respective core storage requirements are as 
follows : 
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Hierarchical Sequential data base with 

processing option of GET or LOAD 5,300 bytes 

Hierarchical ISAM data base with processing 

option of LOAD 13,000 bytes 

Hierarchical ISAM data base with processing 

option of GET 20,000 bytes 

Hierarchical ISAM data base with processing 

option of ALL (GET, ISRT, DLET, REPL) 24,000 bytes 

Regardless of the number of data bases used by an application 
program, the data base organization module sets are required only once 
in the IMS/360 Type 3 region for each data base organization. 

Operating System/360 Control Block Requirements 

As in the IMS/360 Type region, it is necessary for core storage in 
a Type 3 region to contain some Operating System/360 control blocks. 
The following list indicates the types of control blocks, their storage 
requirements, and their need in the IMS/360 Type 3 region. Some of 
these control blocks are maintained in system queue space when operating 
with Operating System/3 6 0-MVT. The reader should refer to the section 
in this manual titled "Estimating IMS/360 Type Region Main Storage 
Requirements" for obtaining Operating System/360 requirements in any 
Operating System/360 region. 

Type 3 Region Storage Requirement Example 
Assumptions for example: 

1. Dser f s application program requires 20,000 bytes. 

2. Three data bases are utilized. 

1 — Hierarchical Indexed Sequential data base - single data set 

group - processing option equals LOAD (L) 

2 — Hierarchical Indexed Sequential data bases - two data set 

groups each - processing option equals ALL (A) 

3. All ISAM block sizes equal 2000 bytes, and all OSAM block sizes 
equal 1000 bytes. 



IMS/360 Storage Requirement 



Amount 



Basic Modules 10,000 bytes 

User's Application Program 20,000 

Control Blocks 

PSB 3,000 

3 - DMB's (Five data set groups) 2,500 

HISAM (processing option equals L) 13,000 

HISAM (processing option equals A) 24,000 

Data Base Buffers (2 - ISAM, 4 - OSAM Block 
Size Buffers Per Data Set Group) 
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2 buffers x 5 data set groups x 2000 

bytes/buffer 20,000 

4 buffers x 5 data set groups x 1000 

bytes/buffer 20,000 



Total IMS/360 Requirement 112,500 bytes 

Operating System/360 Requirement 

TIOT = 28 + 16n + 4d 

Assume 5 I/O devices = d 

Assume 10 DD cards = n 

= 28 + 160 + 20 

Program Request Blocks (2 required) 

Loaded Program Request Blocks (10 required) 

Supervisor Request Block (1 required) 

Data Extent Block (20 required) 

System Fetch Work Area 

OPEN/CLOSE/EOV Work Area 

ABEND Work Area 

I Input/Output Blocks (2 per data set) x 10 data sets 

Total Operating System/360-MFT-II Requirement 

Total Type 3 Region Storage Requirement 

IMS Type 3 region requirement 

Operating System/360 region requirement (MFT) 

Total Region Size 120,418 bytes 

In addition to the IMS/360 Type 3 partition or region requirements, 
storage is necessary for the basic Operating System/360 nucleus, RAM or 
link pack area, and system writer (optional) . 

IMS/360 DATA BASE CONSIDERATIONS 

Variable Length Data Base Record Processing 

The data base creation and processing capabilities of Data Language/I 
allow an application to define a data base record structure in 
hierarchical segments. The actual number of segments within a 
particular data base record may and probably will vary significantly 
across all data base records within the data base. This creates the 
need for the ability to handle the physical storage of variable length 
application logical records or data base records. The degree of 
variable length capability must not be constrained by the physical 
attributes (track length) of an input/output device. An application 
\ logical record may be a partial track or may exceed a cylinder of direct 

access device space. 



208 


bytes 


64 




UOO 




96 


- 


3200 




390 




1200 




1000 




1360 




7560 


bytes 


112,500 


bytes 


7 r 918 
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In order to provide this variable length physical storage capability. 
Data Language/I has adopted the following philosophy. All segments of a 
data base record may be stored in one physical record or in multiple 
physical records. 

When multiple physical records are required, the first physical 
record points to the second by relative direct access device address, 
and the second to the third in a like manner. When the Hierarchical 
Indexed Sequential organization is used, the first physical record of 
any data base record is an ISAM logical record. Any subsequent physical 
records for the same data base record are OSAM physical records (Figure 
6). 



ISAM 

KEY OF 

ROOT I | ROOT | DEPENDENT 

SEGMENT 1 SEGMENT | SEGMENT 1 



ISAM 

■LOGICAL' 
RECORD 




DEPENDENT I DEPENDENT 
SEGMENT 2 [SEGMENT 3 

OSAM 
■« PHYSICAL 

RECORD 



-DATA BASE RECORD 




Figure 6. Multiple physical record example 



This concept of variable length data base record support is provided 
through the use of OSAM. When an OSAM data set is opened in the 
Operating System/360 data management sense, it is used by Data 
Language/I for both reading and updating in-place existing segments of a 
data base record or for the addition of new segments of a data base 
record. An OSAM data set may have as many as 16 direct access device 
extents and may exist on up to five direct access device volumes. The 
physical records of an OSAM data set are the same length as the logical 
ISAM records of the same data set group within a data base. OSAM does 
not have a variable length physical record capability with a data set. 

The OSAM capability has effectively extended the ability of Operating 
System/360 ISAM through Data Language/I to create, maintain, and process 
variable length application logical records. 
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The foregoing is summarized as follows: 



j Record | Data Set j Organization j Segment | Occurrence 


| 1 | Primary j ISAM j Root and j Initial 
j | j j Dependents! Loading 


1 2 j Secondary J ISAM | 2nd Level | Initial 
| II 1 an & 1 Loading 
j j j j Dependents! 


j 3 | Primary j OSAM j Root j Insertion 
III | Segment j or Addition 
III j Overflow | to Data 
III II Base 


j 4 j Secondary j OSAM j 2nd Level j Insertion 
III j Overflow | or Addition 
jj | j Segments j to Data 
III II Base 


j 5 j Primary | OSAM | All | Both 

| | and j | Dependent | Initial 

j j Secondary | j Segments j Loading 

III || and 

j j j j j Insertions 



Data Lanquaqe/I Record Format 

For the Systems Operation function, it is felt that the actual Data 
Language/I record format is required for complete understanding of the 
organization of the data base. The explanation following assumes that 
this data base is of the Hierarchical Indexed Sequential organization 
and contains multiple data set groups. There are five logical record 
formats for a multiple data set group Hierarchical Indexed Sequential 
organization. The first three formats also pertain to the single data 
set group organization. 

Figure 7 shows the relationship between the different types of 
logical record formats. The relationship differs according to the data 
set group, the ISAM or OSAM data set organization, and whether the 
segment is root or dependent. The type numbers in Figure 7 are 
explained in the next paragraphs. 
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Figure 7. Logical record format relationship 



Type 1 Record Format 



The Type 1 logical record Data Language/I format is contained within 
the primary data set groups, is in the ISAM organization, pertains to 
root segments, and occurs primarily at initial loading of the data base. 
The format is: 
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PTRl |P|D | DATA [ P{D| 



DATA 



PTR2 



| 0- 



3 bytes*|* root ►|-*-2nd level-*-)* — 4 — i4*-filler 



segment 



segment 



bytes 



-logical record length 



where : 



PTR1 



PTR pointer to next root segment (Type 3 format) in OSAM 



one byte of overhead per segment for physical code of 
segment type 



D 



one byte of overhead per segment for delete code 



DATA 



actual data for that segment, including its key 



PTR2 



filler 



PTR pointer to next dependent segment (Type 5 format) in 
OSAM, if there is necessity for overflow, otherwise, all 
four bytes are binary zeros. 

the remaining area not used by data. The PTR pointer is 
filled with binary zeros. 



Type 2 Record Format 

The Type 2 logical record Data Language/I format is contained within 
the secondary data set group, is in the ISAM organization, pertains to 
second-level segments (cannot start with root segments; must be no 
higher than second level) , and occurs primarily at initial loading of 
the data base. The format is: 



1 PTR3 |lCey| PJD 1 DATA | P|D | DATA | PTR2 1 | Q Q | 



«*-3 bytes-*|« 



T 



Parent 

root 

key 



first _ 
second- 
level 
segment 



second 
second- 
level 
segment 



logical record length 



■ 4 --*|«*- filler- 
bytes 
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where : 
PTR3 

Key 
P 

D 

DATA 

PTR2 



= PTR pointer to next second-level segment (Type 4 format) in 
OSAM 

= The parent root key 

= one byte of overhead per segment for physical code of segment 
type 

= one byte of overhead per segment for delete code 

= actual data for the segment, including its key 

= PTR pointer to next dependent segment (Type 5 format) in OSAM, 
if there is necessity for overflow. Otherwise, all four bytes 
are binary zeros. 

filler = the remaining area not used by data. The PTR pointer is filled 
with binary zeros. 

Type 3 Record Format 

The Type 3 logical record Data Language/I format is contained within 
the primary data set group,, is in the OSAM organization, pertains to 
root segment overflow, and occurs primarily at insertion or addition to 
the data base. The format is: 



PTRl . 

location [PTR4 |p|D } DATA 



|p|D}DATA | PTR2 |o|,0 | 



«*3 bytes-*f* — .root *|-*-2nd level- 
overflow overflow 
segment segment 



logical record length' 



ifiller- 



where : 

PTRl 
location 

PTRU 

P 

D 

DATA 

PTR2 



filler 



location of PTRl pointer in Type 1 format 

PTR pointer to next root segment in OSAM (Type 3 format) 

one byte of overhead per segment for physical code of segment 
type 

one byte of overhead per segment for delete code 

actual data for that segment, including its key 

PTR pointer to next dependent segment (Type 5 format) in 
OSAM, if there is necessity for overflow. Otherwise, all 
four bytes are binary zeros. 

the remaining area not used by data. The PTR pointer is 
filled with binary zeros. 
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Type 4 Record Format 

The Type 4 logical record Data Language/I format is contained within 
the secondary data set group, is in the OSAM organization, pertains to 
second level overflow segments, and occurs primarily at insertion or 
additions to data bases. The format is: 



PTR3 



location JPTR5 [ KEY \ P }.D j DATA | Pj.D j DATA j PTR2 |o | | 



««-3 bytes-*|-r-*-|«*- first l » | « second 
\ second- second- 



Parent level 
root segment 
key 



level 
segment 



logical record length- 



filler 



where : 



PTR3 
location 

PTR5 



KEY 
P 

D 

DATA 

PTR2 

filler 



= location of PTR3 pointer in Type 2 format location 

= PTR pointer to next second level overflow segment (Type 4 
format) 

= The parent root key 

= one byte of overhead per segment for physical code of 
segment type 

= one byte of overhead per segment for delete code 

= actual data for that segment, including its key 

= PTR pointer to next dependent segment (Type 5 format) in 
OSAM, if there is necessity for overflow. Otherwise, all 
four bytes are binary zeros. 

= the remaining area not used by data. The PTR pointer is 
filled with binary zeros. 
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Type 5 Record Format 

The Type 5 logical record Data Language/I format can be contained 
within the primary and secondary data set groups, is used as a part of 
the OSAM organization, pertains to all dependent segments, and can occur 
at both initial loading and insertions into a data base. The format is: 



PTR2 . * 
location ! 000 



| P [ D | DATA 1 P| D \ DATA | PTR2 jo | 0- | 



U-3 bytesJ-*- 



lst 

dependent 
segment 



<*-2nd- 



■*+•-■ 4 



dependent 
segment 



bytes 



filler 






where : 

PTR2 

location = location of PTR2 pointer from either Type 1, 2, 3, 4, or 5 
format 

* = three bytes of binary zeros (reserved) 

P = one byte of overhead per segment for physical code of segment 
type 

D = one byte of overhead per segment for delete code 

DATA = actual data for that segment, including its key 

PTR2 = PTR pointer to another dependent segment record of the same 
type as this one 

filler = The remaining area not used by data. The PTR pointer is 
filled with binary zeros. 

Examples of Types of Data Language/I Logical Records 

Figure 8 shows a data base structure that is used to explain, with 
examples, the different types of Data Language/I logical records. In 
Figure 8, the children (dependent segments) associated with root 1 are a 
number with the suffix 1. Such is the case also with roots 3 and 5. 
Root 2 and its children are noted in the same manner, but with dashes 
because they were not initially loaded into the data base. 
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The examples show these combinations: 



Type 
Type 
Type 
Type 
Type 
Type 



to Type 
to Type 
to Type 
to Type 
to Type 
to Type 



Note that, for the purposes of example, a short logical record was 
constructed to force an overflow of OS AM. 



PRIMARY DSG 



ROOT 5 



ROOT 3 



ROOTltj 



w 



R00T2_; 



CHILDA5 



:hilda3 



CHILDAl =^ 



(CHILDA2J 



CHILDB5 



CHILDB3 



CHILDB1 



L 



SECONDARY DSG 



CHILDC5 



i:HILDC3 



CHILDCl^l 



|child:2 



CHILDD5 



CiILDD3 



CHILDD1 



:HILDE5 



CHI.DE3 



CHILDE1 



JCHILDD2 ! 



i 1 

I 
I 
I 



JCHILDE2< E2.ll E2.2 



Figure 8. Types of Data Language/I logical records 
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• Example Type 1 to Type 5 
Primary DSG 



ISAM OS&M 

| ooo|p|d|root.i1p|d|childai|o looil p>ooi |ooo1p1d|childbi| oooj °1 o- 

| 000 1 P |D [ROOT3 1 P| D |CHILDA3 1 |002 | ^002 |oOO |p| D |CHILDB3 | 0001 °I °" 
00q1p|d[ROOT51p1d lCHILDA5| |003 1 . M)0 3 1000 Ul D JCHILDB5 | 0001 °1 °" 



Example Type 2 to Type 5 
Secondary DSG 

ISAM QSAM 

KEY 

ooo |rooti1p1d|childci1p|d|childdi loiooil i^ooi IoooIpIdIchildeiIoooioIo o\ 

KEY _>.»_ _____ 

ROOT 3 



KEY 
ROOT 5 



Example Type 1 to Type 3 

Adding root 2 to data base. See Figure 8 
Primary DSG 



ISAM OSAM 



|004|p1d1roOT31p|d1cHILDA3 10 1002 | i *-Q04 [oQO |p |d 1rOOT2 p!d|cHILDA2 |0 |0QQ| 



• Example Type 2 to Type 4_ 

Adding root 2*s children to secondary data set group. See Figure 8. 
Secondary DSG 

OSAM 
ISAM 
■KEY KEY 

|005|ROOT3|p|D|CHILDC3lplDlCHILDD3l0l002 |r005 |000 | ROOT 2 j P | D |CHILDC2 1 P |D |CHILDD2|o)000 | 



U2 



Example Type 4 to Type 5 



Secondary DSG 
ISAM 



OSAM 



KEY 



005 |000 | ROQT2 |P|d|cHILDC2|P|d|cHILDD2|0 |006 



n 



006 |000|p|D|CHILDE2| OOOjOJO- 



• Example Type 5 to Type 5 



Secondary DSG 



ISAM 



OSAM 



006 1000 1 P | D |CHILDE2 1 P| D |CHILDE2 . 1 1 | 007 



007 |000|p|D|CHILDE2.2|000l0l0 



Data Base Creation 

Initially, the Data Language/I data base must be loaded. Usually the 
data exists in a machine-readable form acceptable to COBOL, PL/I f or 
Assembler Language. If so, a user program (COBOL, PL/I, or Assembler 
Language) must read the data using conventional access methods and then 
issue Data Language/I insert calls to load the Data Language/I data 
base. Since the data was not previously organized in a hierarchical 
fashion, a certain amount of editing may be necessary before doing the 
Data Language/I load. Also, before the initial load, a DBD.GEN and 
PSB.GEN must have been done. 

Data Base Creation DP Card Parameters 

ISAM DCB Option Codes 

The following option codes should be utilized and specified on the DD 
cards of the job for each data base creation. 

DCB = (DSORG=IS,OPTCD=WM, [RECFM=FB] ) 

where: 

w = Write check 

M = Master index creation (optional) 
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The user must not specify OPTCD=L, which indicates the presence of a 
delete byte in the ISAM logical record. The user should not specify 
OPTCD=I for ISAM independent overflow, because ISAM is not used to make 
additions to a data base. 

The user may specify the RECFM, or it may be omitted. If RECFM is 
specified, it must state RECFM=FB. 

OSAM DCB Option Codes 

No DCB parameters need be specified on the DD card for the OSAM data 
set within a Data Language/I data base. However, the user may specify 
DCB =(DSORG=PS) if desired. 

Single and Multiple Data Set Groups 

Before creation of the data base, some consideration must be given to 
using single or multiple data set groups. (See "Definition of Multiple 
Data Set Groups" in Chapter 4 of IMS/360 Program Description Manual . ) 
The DBD generation controls whether a data base is composed of single or 
multiple data set groups. The application program is insensitive to the 
number of data set groups; therefore, it is easy to experiment with 
different combinations until the optimum is found. 

The advantages of a single data set group are: 

• Only one ISAM index is needed; therefore, less storage space is 
used. 

• On retrievals, using multiple data set groups, the ISAM index for 
the secondary data set group must be used to access segments in the 
secondary data set group. This may be more time-consuming than if a 
single data set group were used. Particularly on sequential 
retrieval of all dependent segments of a root, multiple data set 
groups would probably require more time than a single data set 
group. 

• More core will be required for buffers using multiple data set 
groups. 

The advantages of multiple data set groups are: 

• The use of multiple data set groups is best indicated when a root 
has either so many or such long dependent segments that, for most 
roots, even with a large LRECL, all the dependent segments do not 
fit into the prime record. 

• Under extreme situations, many OSAM blocks may be required to hold 
all the dependent segments for a single root. When this is the 
case, it is probably more efficient to use multiple data set groups, 
thus decreasing the references to OSAM. 

• Using a single data set group. Data Language/I must go sequentially 
from the root through dependent segments to satisfy the call. It 
may be necessary, therefore, to pass over many dependent segments in 
order to satisfy a qualified Get Next or Get Unique type call for a 
second-level or lower segment. If all dependent segments of a root 
are contained in one block, this is a fast incore scan; but if the 
number of dependent segments requires multiple OSAM blocks, 
considerable time may be necessary to access these blocks 
sequentially in order to get the one containing the desired segment. 
If multiple data set groups are used, considerable scanning and 
possible OSAM access time can be saved because Data Language/I goes 
directly to the index of the data set group containing the requested 






segment. This consideration is Item 10a. (5) in the Systems 
Operation checklist. 

Considerations of HISAM and HSAM 

In deciding whether to use HISAM or HSAM, the HSAM restrictions must 
first be considered. Since HSAM is used to reference a sequential data 
set, data cannot be added, deleted, or replaced in an existing HSAM data 
set. Delete and replace calls are not valid for HSAM. Insert calls are 
invalid except when PCB processing options are equal to Load(L). 
Although HSAM is a sequential data set, it can be randomly processed 
within one volume. The data set will be scanned sequentially either 
forward or backward to satisfy the call. Therefore, to use an HSAM data 
set processed in a random fashion may be extremely inefficient. HSAM is 
not designed for random retrieval. Generally, when random processing is 
to be done, HISAM should be used. Exceptions to this may occur when the 
backward searches are very short or when all calls can be satisfied by 
proceeding forward through a data base. 

Whereas a HISAM data set cannot be created online, an HSAM data set 
can. HSAM may be used to create an audit trail data base, in which case 
the time and date can be used as ascending order keys. This 
consideration is Item 10a. (6) in the Systems Operation checklist. 

BISAM versus QISAM 

The use of BISAM versus QISAM for access to Hierarchical Indexed 
Sequential data bases is determined by whether the input/output 
operation is executed from a Type region or Type 3 region. BISAM is 
used for all ISAM reads and writes for update in a Type region. It is 
more efficient than QISAM for direct record access and contains no 
embedded Operating System/360 wait instructions. This allows the 
IMS/360 control facility to control all Operating System/360 waits in 
the Type region. QISAM is used in all Type 3 processing regions 
because it provides better sequential processing across one or more Data 
Language/I data base records accessed in a sequential manner. This 
consideration is Item 10a. (7) in the Systems Operation checklist. 

Data Base Reorganization 

Periodically, all data bases should be reorganized. This is 
necessary to delete those segments from the data base which have been 
marked "deleted", and to bring the added root segments which are placed 
in OSAM physical records during online processing back into ISAM prime 
records. It also decreases the amount of reprocessing necessary to 
recover from a hard error which requires a data base to be loaded and 
the update or additions to it to be reprocessed from the log tape. 

The data base may be reorganized either by retrieving all segments 
from the HISAM data base and loading them to an HSAM data set, either on 
tape or direct access, or by retrieving them from the HISAM data base 
and loading them directly to a new HISAM data base. Going directly from 
HISAM to HISAM is the most efficient method, but this requires 
sufficient direct access data space to hold both copies of the data set. 
After the new one is loaded, the old HISAM packs can be held as the 
backup copy. Going to HSAM on tape as an intermediate step is not as 
efficient, but allows reloading of the HISAM data set on the same space 
previously allocated to it. It also may be convenient for any offline 
processing required and allows a tape rather than direct access space to 
hold the backup copy of the data base. 

It should be noted that two DBD's are necessary if going directly 
from HISAM to HISAM. They will be similar but with different DBD names, 
and the DD1 and DLIOF entries on the DMAN card must be different. The 
DD1 and DLIOF entries specify the DD names on the DD cards . The DSNAMES 
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may be the same on the old and the new data sets. The loading of the 
HISAM data base must be done in a Type 3 region. 

Since the reorganization of a large data base requires a significant 
amount of time, a pertinent question is, "How can I tell when to 
reorganize my data base?" The answer depends on how volatile the data 
base is; that is, how many additions are made and how often these 
additions are being referenced. 

The number of inserts is shown on the Application Accounting Report 
produced from the IMS/360 statistics programs. Another indicator for 
reorganization is the Transaction Response Report. When many of the 
segments being referenced are in OSAM, and/or the OSAM chains become 
long, the response times will become longer because of the increased 
amount of direct access arm movement required to respond to the call. 

Care must be taken to ensure that there is always unused space 
available in the direct access space allocated to the OSAM data set. 
The IEHLIST utility program can be used to list the data set control 
blocks to monitor the amount of unused space available for OSAM 
additions. OSAM allows for a maximum of 16 extents across 5 volumes . 

Description of Data Language/I Segment Insertion 

Data Language/I segment insert logic for hierarchical indexed data 
bases is designed to handle (1) root segment insertion, and (2) 
dependent segment insertion. This section describes how Data Language/I 
implements segment insertion. 

Root Segment Insertion 

The logic for root segment insertion also includes the handling of 
second-level segment insertion on secondary data set groups. If the 
segment to be inserted is a root. Data Language/I proceeds to place the 
segment into OSAM and chain from ISAM of the primary data set group. 
For second-level segment insertion into secondary data set groups, the 
insert module calls upon the retrieve module for physical positioning 
within the proper data set and buffer as well as verification of the 
presence of a root segment. If a root exists for the second-level 
segment to be inserted, the retrieve module attempts to find an 
associated record on the secondary data set to prohibit duplicate 
dependent segments. When no record is found on a secondary data set, 
Data Language/I builds a new second-level segment and places the segment 
into OSAM with a chain from the ISAM data set of the secondary data set 
group. 

The insertion operation in Data Language/I is performed by first 
searching the appropriate ISAM data set for a root segment key equal to 
or greater than the root segment or second-level segment key in a 
secondary data set group being inserted. If a segment is found with key 
equal, and the segment with a delete bit is turned on. Data Language/I 
inserts the new segment in place of the old segment. If a segment is 
found with key equal, and the segment with a delete bit is turned off, 
the insertion is rejected with the appropriate status code. 

For a key-high condition. Data Language/I examines the first three 
bytes in the key-high record. This three-byte area signifies whether 
there is a chain of additional roots with keys less than the current 
key-high record. If the three bytes equal binary zero, Data Language/I 
inserts the next available OSAM block number into that three-byte area, 
writes the new root record out into OSAM, and, finally, writes back the 
ISAM key-high record, to include a pointer to the new OSAM block. 

When the three-byte value is nonzero, Data Language/I reads the OSAM 
block that the three-byte value addresses and compares the newly read 
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root key against the root key of the segment being inserted. If the 
newly read key is greater than the insert key, Data Language/I backs up 
to the previous record, moves its three- byte pointer into the new 
segment record, and writes out the new OSAM- record. After completion of 
the successful OSAM write. Data Language/I updates the previous record 
by placing the newly written OSAM block number into the three-byte area 
and performing a write- back operation. If the key field of the segment 
in the OSAM block read is less than the key field of the segment to be 
inserted, the first three bytes of the OSAM block are tested equal or 
not equal to zero. If zero, the new segment to be inserted is written 
into the next available OSAM block, and the last-read OSAM block is 
updated to point to the new OSAM block. If nonzero, the next OSAM block 
chained to is read, and the key field of the segment in this block is 
tested against the key field of the segment inserted. At this point, 
the insert process will iterate through one of the above situations. 

Dependent Segment Insertion 

When a dependent segment is to be inserted into an existing data base 
record, the insert module of Data Language/I calls the retrieve module 
for the positioning action. After positioning action is complete, the 
insert module branches to one of four possible conditions, depending on 
how much slack space is available in the logical record. 

Condition 1. If there is enough space available to insert the new 
dependent segment into the existing physical record, this condition 
shifts any data that may exist to the right of the new dependent segment 
insert position. The new segment is then inserted and a "buffer 
pending" flag is turned on. 

Condition 2. When the amount of slack is less than the insert segment 
length, a test is made to determine whether the new segment length plus 
an OSAM block pointer will fit into the area between the insert position 
and the end of the logical record. If so, any existing shift data is 
moved to a work area and is immediately written out to the OSAM data 
set. The new segment and just-written OSAM block number are moved into 
the current buffer, and the pending-flag is turned on. 

If the new segment plus the OSAM pointer do not fit, another test is 
required to determine whether enough space (four bytes) is available to 
hold an OSAM block pointer only. A YES is handled by Condition 3, and a 
NO by Condition 4. 



47 



CURRENT 
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t 
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Current buffer after insert 
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INSERT 
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Current buffer before insert will 
not hold new segment, and slack is 
greater than 4 bytes 



CURRENT 
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OSAM 

BLOCK 

#702: 



000 j (segD ) 0- 



Current buffer after insert 



Condition 3. This condition places any new segment and any existing 
shifted data into a work area and immediately writes out a new OSAM 
record. The just-written block number is moved into the current buffer, 
and the pending- flag is turned on. 
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CURRENT 
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t 
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CURRENT 
BUFFER: 



OSAM 

BLOCK 

#703 



OOOl(segA) 0703 



000 



(segB) (segD) 



Current buffer after insert 



Condition ^. When less than four bytes of slack remain, the segment 
prior to insert position must be extracted to allow room for an OSAM 
block pointer.. The previous segment, new segment, and any shift data 
are moved to a work area and are immediately written out to the OSAM 
data set. This newly written block number is then moved into the 
previous segment position, and the pending-flag is turned on. 

Data Base Integrity Through the Use of OSAM 

The modifications made to a Data Language/I data base by the Delete, 
Replace, and Insert functions create a need for internal capabilities in 
IMS/360 and Data Language/I to attempt to ensure the integrity of a data 
base. This is particularly true when operating in a message processing 
environment. The most complex Data Language/I input/output function of 
the three is Insert. Whenever a segment (root or dependent) is added to 
a Data Language/I data base of the Hierarchical Indexed Sequential 
organization, a new physical record may have to be generated. The OSAM 
data set(s) of that data base is used for all segment insertion. The 
Write-Key-New capability of ISAM is never utilized. The following 
diagrams illustrate a dependent segment insertion and are provided in 
the sequence of channel program operations. (See Figures 9, 10-, and 
11.) 
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Figure 9. Data base prior to segment insertion 
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LOGICAL 
RECORD 



DEPENDENT 
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X+N 
, DEPENDENT 
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Figure 10. After channel program write and check of new OSAM physical 
record 

The first OSAM physical record (prior to segment insertion) for the 
data base record is at direct access device address X. OSAM space 
within a data set is allocated sequentially. Assume that the next 
allocatable OSAM space is X+N. Assume that a dependent segment number 1 
is to be inserted between the root segment and dependent segment number 
5. There is no space available in the ISAM record to insert the 
additional segment, and the next available OSAM record address is X+N. 
A channel program reads the ISAM record, and Data Language/I finds that 
no space exists in the ISAM. Data Language/I also recognizes the 
existing direct access pointer to record X. Physical location X+N in 
the OSAM data set is allocated for the Insert. An OSAM record with 
dependent segment 5 is written at X+N and checked with a channel program 
(Figure 10). 
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Figure 11. Data base after insertion 



The OSAM record has a physical direct access address pointer to record 
X. Once the record at location X+N is successfully written, the ISAM 
record is updated, with the root segment and dependent segment 1 
unchanged, using a channel program. The OSAM record pointer in the ISAM 
record is changed to X+N. 

In order to maintain the integrity of the data base, the sequence of 
channel programs is important. The user should try an alternate 
sequence and consider the possibility of a system failure after start 
but prior to termination of the Insert operation. 

Another critical consideration in the use of a sequentially allocated 
direct access space such as ISAM overflow areas, the sequential access 
methods, and OSAM, is the proper maintenance of the next allocatable 
direct access device address. All of the above access methods use a 
field in the data set control block (DSCB) to maintain this address 
while a data set is closed. When a data set is opened, this information 
is placed in a field in the data control block (DCB) in core storage. 
As records are added to the data set, the field in the DCB is 
appropriately updated. When the data set is closed, the DCB field is 
used to update the DSCB with the new allocatable address. If the system 
is lost after record adds, and the data set is not closed, the DSCB 
field is not updated. Positioning in the data set area is lost. 

A special capability has been added to OSAM to alleviate this 
problem. Every time an OSAM record is added to a data set, a file mark 
(count field with key field and data field lengths zero) is written. 
When another new record is written, the file mark is overlaid and a new 
file mark is written after the added record. If the system is lost and 
the OSAM data set is not closed, the DSCB allocation pointer is not 
updated. If the data set is closed correctly, the DSCB is updated from 
the DCB. When the OSAM data set is subsequently opened, the next 
allocatable address from the DSCB is used for a record read. If a unit 
exception indication is received, the positioning is at a file mark, and 
the data set is assumed to have been previously closed correctly. If a 
unit exception indication is not received, the OSAM open routine 
sequentially reads records until a unit exception is received. This 
address then represents the proper positioning in the data set. 
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Data Lanquage/I Data Base Space Allocation 

When direct access storage is required for a data base, the amount of 
space needed and the device type must be specified. IMS/360 follows the 
same approach as Operating System/360. Refer to the manual OS/360 
Supervisor and Data Management Services (GC28-6646), Part 3, "Data Set 
Disposition and Space Allocation" . 

The amount of space required can be specified in terms of blocks, 
tracks, or cylinders. If it is desired to maintain device- independence 
across direct access device types, space requirements should be 
specified in terms of blocks. Otherwise, if the request is in terms of 
tracks or cylinders, such items as their capacity must be considered. 
ISAM data sets must be allocated by cylinder. Table 12 of the OS/360 
Supervisor and Data Management Services manual lists the physical 
characteristics of a number of direct access storage devices. The 
amount of space is supplied in the data definition (DD) statement for 
the data set. 

Allocating the space for an IMS/360 Data Language/I data base that 
uses ISAM and OSAM is similar to allocating space for an Operating 
System/360 indexed sequential data set; similar because an Operating 
System/360 data set can be divided into three areas,, prime, index, and 
overflow. The three areas of a Data Language/I data base are index, 
prime, and OSAM overflow. 

Normally, DBD generation computes from the user's definition of 
segment frequency the logical record length (LRECL) of a data base. It 
considers the device and rounds to the next higher 1/4 track, 1/3 track, 
or 1/2 track. The computed LRECL will not exceed 1/2 track for any 
device. 

For the Systems Operation function, IMS/360 has two additional 
parameters that can be inserted when it executes the DBD generation. 
These provide an additional means of specifying the LRECL and blocking \^ 

factor (BLKFACT) for a data set within a data base. 

In the DMAN control card, the additional parameters are LRECL and 
BLKFACT. Instead of DBD generation specifying the LRECL, it can be 
overridden by specifying the LRECL and the BLKFACT. 

Allocation Problem Example 

With the reader's knowledge of the data base structure, the 
application programs that will access that structure, and the tools of 
IMS/360 DBD generation, the following space allocation example will be 
meaningful. The example deals with an IBM 23m Direct Access Storage 
Facility. 

When an IMS/360 Hierarchical Indexed Sequential organization (HISAM) 
data base is loaded on an IBM 2 314 Direct Access Storage Facility,, it is 
necessary to allocate space for that data base with JCL data definition 
statements. The creation of a Data Language/I single data set group 
data base may require up to three DD statements, one each for the index,, 
prime, and OSAM overflow areas. This example should provide assistance 
in initially determining the amount of space to allocate to these areas 
for any specific application. Each data set group within a Data 
Language/I multiple data set group can be treated as a Data Language/I 
single data set group data base when determining space requirements. 
The output of DBD generation also supplies minimum primary ISAM and OSAM 
allocation requirements. 
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ISAM Prime Area 

This area contains the majority of the data records and all related 
track indexes. For this example, each root segment and all its 
dependent segments comprise a single logical data base record. For a 
specific data base, a logical record could vary from only the root 
segment to the root segment with a maximum number of segment occurrences 
for each dependent segment type. The distribution of the lengths of 
logical records of this example's data bases is plotted in Figure 12. 
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Figure 12. Logical record length distribution 

The graph of Figure 12 indicates that 50% of the logical records are 
150 bytes or less in length, 70% of the logical records are 200 bytes or 
less in length, 90% of the logical records are 500 bytes or less in 
length, and 100% of the logical records are 600 bytes or less in length. 

With fixed-length ISAM, it is necessary to establish a fixed value 
for the logical record length (LRECL) in the prime area. If a value of 
600 bytes is selected for the LRECL, all logical records can fit in the 
prime area. However, 90% of the records then have at least 100 bytes of 
slack or wasted space; 70% of the logical records have at least 400 
bytes of unused space. 

In this example, if a value less than 600 bytes is selected for the 
size of the LRECL, the ISAM prime area is not capable of holding all the 
logical data base records. Those dependent segment occurrences which do 
not fit in an ISAM prime LRECL are housed in OSAM overflow records. 
Therefore, the determination of an ISAM prime LRECL must consider the 
tradeoff between storage in the ISAM prime area and in the OSAM overflow 
area. 

To determine a best balance between ISAM prime and OSAM overflow, the 
following points must be considered: 

1. Access to data that is wholly contained in the prime area is more 
rapid than access to data contained in two areas. Access is even 
slower to those logical data base records that require more than 
one overflow record. 

2. Disk space allocated to OSAM overflow can be used to hold segment 
occurrences that overflow from any logical data base record. 
Unused space in the prime area is tied to specific roots. 

3. Records are blocked in the prime area but unblocked in the OSAM 
overflow area. This difference is negligible for large data base 
records but can be significant for small records. For example, 
with an LRECL of 27 bytes, 4864 records can be stored in one 
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cylinder in the prime area with half-track blocking. Only 840 
similar records can be stored in one cylinder of overflow. 

4. The nature of the accesses to the large logical data base records 
also has an important effect. If the large logical data base 
records are highly used, the size of the prime LRECL should be 
increased to completely house more logical records, and the total 
size of OSAM overflow should be reduced. If the large logical 
data base records are infrequently accessed, an opposite shift 
should be made to increase the use of OSAM overflow. 

Considering these relevant factors for a specific data base, a 
percentage balance must be established between the ISAM prime and the 
OSAM overflow. For example, it may be best, in the context of 
optimizing space and time utilization, that 90% of the logical data base 
records completely fit in the prime area and 10% require some OSAM 
overflow storage. After this percentage is selected, the frequency of 
dependent segment occurrences is developed for the 90th percentile of 
the parent segments. The 90% is an estimated value for this specific 
data base. This is similar to the DBD generation requirements, except 
that the frequency will apply to 90% or more of the parents rather than 
to all of them. Those dependent segments that occur with certainty, 
that is, with fixed frequency for 100% of that segment's parents, will 
be specified at their full value. 

Taking the segments contained in the example's data base (Parts List 
Data Base) , Figure 13 shows the hierarchical structure relationship of 
the segments, a table of parent estimated frequency, and segment length. 
Note that the segment length in this table contains two overhead bytes 
needed for Data Language/I. 
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Figure 13. Hierarchical segment structure and table of parts list data 
base 

The calculations of the prime LRECL are: 

Prime LRECL=20 + 1 C8 + 10 [15 + 2(5) + 1 (10)] + 4 [25]} + 7* 

Prime LRECL = 488 bytes 

* The addition of 7 represents overhead bytes per LRECL for Data 
Language/I. 



55 



This establishes the fixed record size (calculated LRECL) for the 
ISAM prime area needed so that 90% of the logical data base records can 
be completely housed in the prime area. 

The next step is to determine the IMS/360 LRECL that considers the 
calculated LRECL, the track length, and the blocking factor. Assuming 
half-track blocking, there are 3476 bytes in one block on the 2314 
storage facility. The value of calculated LRECL is divided into 3476 to 
determine the number of records in a block, and the remainder from this 
division is equally distributed among the records. 

The results of this process can be tabulated in the convenient form 
shown in Figure 14 . 
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Figure 14. LRECL for half-track blocking on the 2314 direct access 
storage facility 

A calculated LRECL of 488 falls in the tabulated range of 435 - 496, 
which results in an IMS/360 LRECL of 496 bytes, with seven records in a 
half-track block. 

The next step is to calculate the total amount of space that is 
required for the ISAM prime area. An estimate must be made for the 
number of roots that exist in the data base. In the example under 
consideration, there are 50,000 roots, that is, 50,000 logical data base 
records . 

Fourteen records are blocked on a single track, and there are 19 
tracks on a cylinder, excluding track indexes. Therefore, 266 records 
fit in a cylinder, and 188 cylinders hold the prime area. Since there 
are 199 usable cylinders in one 2314 pack, the ISAM prime area requires 
about 95% of one pack. 

Index Area 

This area contains master and cylinder indexes associated with the 
data set. It exists for any ISAM data set that has a prime area 
occupying more than one cylinder. The user can place this area on 2314 
or 2301/2303 drum. 



56 



OSAM Overflow 

The OSAM overflow area holds those dependent segment occurrences of a 
logical data base record that do not fit on one LRECL in the ISAM prime 
area. One or more OSAM records may be required in addition to one ISAM 
record to hold one logical data base record. A physical break in a 
logical data base record must not divide a segment occurrence. The 
determination of the amount of space needed for the OSAM overflow area 
depends on the percentage figure used to develop the space for the prime 
area. In the Parts List example, 90% of the logical data base records 
are expected to completely fit into the prime area. 

This percentage figure must also consider the fact that the IMS/360 
LRECL is equal to or larger than the calculated LRECL. This may have 
the effect of increasing the percentage of logical records that 
completely fit in the prime area. Assuming that 90% of the logical data 
base records do completely fit in the prime area, the remaining 10% are 
of interest in calculating the OSAM requirements. 

It is necessary to determine which dependent segment types overflow 
and how many of these fit into one OSAM record. It is assumed in this 
example that, in the Parts List Data Base, segments 3 and 6 occur 
approximately in the proportion of 2-1/2 to 1. Note that if segment 3 
overflows, the children of segment 3, segments 4 and 5, overflow with 
it. This means that one OSAM record holds approximately 20 segment 3s 
and 8 segment 6s. The next step is to determine what part of the 10% of 
the logical data base records will overflow into only one OSAM record; 
then two OSAM records are considered, and so forth, until the entire 10% 
has been specified. For the example under consideration, the statistics 
are in Figure 15. 
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Figure 15. Statistics on 10% of the overflow of the logical records in 
a data base 

Since the overflow records are 496 bytes long and unblocked, 220 
records can be stored in one cylinder. Therefore, 39 cylinders are 
needed for OSAM overflow. 

Example Conclusion 

Following the above process, which is an estimation process, not a 
precise algorithm with exact values, estimates have been developed for 
the 2314 space requirements for a sample problem. The space 
requirements for the Parts List Data Base are 188 cylinders for the ISAM 
prime area and 39 cylinders for OSAM overflow. These values would be 
used in data definition statements to allocate space for the Parts List 
Data Base. 

It should be noted that the objective of this estimation process is 
to develop values for use in initially loading and processing an IMS/360 
data base. File growth has not been included in this example, but it 
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roust be considered. The developed space requirements may be later 
refined by historical data on actual space usage. Even without 
historical data, however, the use of the estimation process described 
here should result in reasonably accurate initial space requirements for 
a hierarchical data base of any degree of complexity. 

Program Specification Block Generation 

The Program Specification Block (PSB) generation utility is an 
important part of the IMS/360 system. It is normally the responsibility 
of the Systems Operation function to perform this generation from the 
information supplied by the Application Programming function. 

There is a close relationship between PSB generation and DBD 
generation. The data base name must be specified in the PCB control 
card in the PSB generation (see Item 9 in the Systems Operation 
checklist). The application program's hierarchical (sensitive) segments 
must be named in PSB generation and described in detail in DBD 
generation (see Items 11 and 11a of the Systems Operation checklist) . 

Note that historical data should be kept for reference along with 
cross-reference information to sensitive data between application 
programs using the same data base. 

The only difference between a PSB generation for a program of only 
data base usage and one which also includes teleprocessing is that 
message PCB ' s may be included at the beginning of the PSB generation 
deck. A message PCB in the PSB is not required for message processing 
programs. The input message PCB is part of the resident IMS/360 control 
program in the IMS/360 Type region. That is, an input message PCB is 
generated for each message region by system definition. It is modified 
at scheduling time to reflect the source terminal of the current input 
message. The inclusion of PCB's within a PSB for message processing 
enables the message program to output messages to destinations other 
than the source of the input message. Output destined for the source of 
the input message is via the same PCB used for acquisition of the input 
message. 

This IMS/360 Systems Operation manual describes, in Chapter 4, a 
library for residence of PSB's and an Operating System/360 procedure for 
creating PSB's. The default name of the program specification block 
(PSB) library is IMS.PSBLIB. This library name is used in the procedure 
PSBGEN. PSBGEN is a two-step assemble and link-edit procedure to 
produce each PSB. 

JCL for PSB Generation 

Use the procedure PSBGEN when running the different PSB generations. 
The JCL cards are: 

//PSBGEN JOB MSGLEVEL=1 

// EXEC PSBGEN, MBR= 

//C.SYSIN DD * 



PCB 

SENSEG 
PSBGEN 
END 



Control cards for PSB generation 



/* 
where keyword operand MBR= is the name of the PSB to be generated. 
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Data Base Description Generation 

The Data Base Description (DBD) generation is normally the 
responsibility of the Systems Operation function. It is an important 
factor in building the Data Language/I control blocks used to describe 
in detail the structure and storage organization of every data base. 

The details of DBD generation are contained in Chapter 7 of the 
IMS/360 Program Description Manual . However, two additional parameters 
are a part of DBD generation: the logical record length (LRECL=) and 
the blocking factor (BLKFACT=) . These parameters are a part of the 
options of the DMAN control card. The use of the LRECL and BLKFACT is 
discussed in the Data Language/I data base space allocation section of 
this chapter. Both parameters must be specified if either is used. If 
neither is specified, DBD generation attempts to calculate an optimum in 
logical record length and block size for the data base. 
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j j DMAN j DD1=,DEV1=, [DD2=], [DLIOF=], 

|j j [LRECL=,BLKFACT=] 



LRECL is a specified number that is less than the maximum length 
allowed for a particular direct access device track. If the optional 
parameters are not used, the calculated optimum LRECL will be 1/4, 1/3, 
or 1/2 track. 

The BLKFACT is a number that specifies the number of LRECL *s per 
physical block. 

Each data base to be used under the IMS/360 definition must be 
defined by a DBD generation. 

The maximum allowable data base buffer requirements for all data set 
groups of any one data base can be calculated with the following 
formula : 

10 

£ (BLKSIZE +35) + ((LRECL +19) * 4) <65,536 

i=l i i 

when i = number of data set groups. 

Although DBD generation may allow construction of a DBD with greater 
buffer storage, execution of IMS/360 with that DBD and data base is not 
possible. 

The DBD for a data base contains within it the Operating System/360 
Data Control Blocks (DCB's) required by Operating System/360 data 
management. For HISAM, there are four DCB's - QISAM load mode, QISAM 
scan modes, BISAM read/write update, and OSAM. For HSAM, there are two 
DCB's - BSAM read and BSAM write. The DCB operands completed by DBD 
generation for each DCB type are: 

QISAM LOAD: DSORG=IS,MACRF=PM,RECFM=FB,OPTCD=W,LRECL=, 
BLKSIZE=,RKP= ,KEYLEN= ,DDNAME= 

QISAM SCAN: DSORG=IS,DDNAME= , MACRF= (SK, GL,PU) 

OSAM: DSORG=PS , MACRF=E, RECFM=F, BLKSIZE= , 
LRECL= DDNAME= 
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BISAM : DSORG=IS , MACRF= (RU , WU) , DDNAME= 

BSAM: DSORG=PS,MACRF=(RP,WP)RECFM=U,BLKSIZE=, 
BUFNO= 2 , DDNAME= 

The QISAM load and OSAM DCB's are used to create a HISAM data base in 
a Type 3 region. The QISAM scan and OSAM DCB's are used to read, 
update, and add to a HISAM data base in a Type 3 region. The BISAM 
read/write and OSAM DCB's are used by Data Language/I in the Type 
region for servicing requests from Type 1 and Type 2 processing regions. 

Items 9, 10, 10a, 11, 11a, and 20 in the Systems Operation checklist 
must be accomplished before considering DBD generation complete. 

The output Assembler Language listing from step 1 of a DBD generation 
includes an estimate of the cylinder index space and prime data set 
space for all ISAM data sets with a Data Language/I data base. 

It is assumed that during IMS/360 system definition, Chapter 4 of 
this manual, the user did not specify a name for the DBD library; the 
default name, IMS.DBDLIB, is therefore used in the generated DBD 
procedure. The generated procedure is DBDGEN, which is a two-step 
assemble and link-edit procedure to produce data base definition blocks. 

JCL for DBD Generation 

Use this procedure, DBDGEN, when running each DBD generation. The 
JCL cards are: 

//DBDGEN JOB MSGLEVEL=1 
// EXEC DBDGEN, MBR= 
//C.SYSIN DD * 

DBD 
DMAN 
SEGM 
<( FLDK 
FLD 

DBDGEN 
FINISH 
END 
/* 



DBD generation control cards 



where keyword operand MBR= is the name for the DBD to be generated. 

Management of Data Bases 

Once the system is considered to be online with its data bases, 
constant surveillance of these data bases must be maintained. Many 
helpful facts can be gained from the statistics reports of IMS/360. 

From the Transaction Response Report, response time can be obtained 
for the calls to the data base. In the Application Accounting Report, 
all requests to Data Language/I are counted. From the OS/360 IEHLIST 
utility, the remaining amount of space can be obtained to receive an 
indication of when a data base may need to be reorganized. 

Some of the data base statistics which the Systems Operation function 
should consider are: 

1. Total data base record volume (total number of root segments) 

2. Number of records in prime area and number in overflow area 
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3. Number of unused tracks in overflow area 

4. Number of records in the data base marked for deletion 

5. Average number of occurrences of a segment type per parent 
segment 

Management of data bases could evolve into the concept of a data 
dictionary. (A data dictionary is a descriptive foundation of all data 
used in the data base environment.) The descriptive information relates 
to fields, segments, data sets, data bases, and data base interaction. 

IMS/360 TELECOMMUNICATIONS CONSIDERATIONS 

The telecommunications facilities of IMS/360 are characterized by the 
use of remotely located input/output terminals connected to a System/360 
computer through a communications network. 

Communication Terminals and Lines 

The physical communication terminals supported by IMS/360 are IBM 
2260 Model 1, 2740 Model 1, and 1050 Model 1 or Model 2. These 
terminals may be connected to a System/360 computer through leased, 
nonswitched communication lines or by a common-carrier switched 
communications network. The 2260 may be attached only via nonswitched 
communication lines. To interface with IMS/360, the user of a physical 
communication terminal attached through a common- carrier switched 
network must dial the System/360 using the data set attached to the 
remote terminal. IMS/360 supports either a single terminal or multiple 
terminals on a communication line. 

The features of the above terminals, the communications equipment, 
and the System/360 control units required for proper IMS/360 support are 
described in the manual titled Information Management System/360 for the 
| IBM System/360. Application Description Manual (GH20-0524) . 

The remainder of this discussion concerning IMS/360 telecommunication 
facilities describes physical communication terminals as physical , 
terminals. All physical terminals of the same type (that is,, 2260, 
2740, or 1050) which are attached through the same communication line 
facilities (that is, switched or nonswitched) and which utilize the same 
polling technique (that is, autopoll or poll) are considered by IMS/360 
to be part of the same BTAM data set line group. Therefore, it is 
required that a user of IMS/360 describe a separate line group, via the 
LINEGRP macro, to IMS/360 system definition for each of the following 
configurations that is employed: 

1. 2740 nonswitched with station control and autopoll 

2. 2740 nonswitched with station control and poll 

3. 1050 nonswitched with autopoll 

4. 1050 nonswitched with poll 

5. 2740 switched with transmit control 

6. 1050 switched 

7. 2260 remote mode, nonswitched with station control 

| For further definition of a BTAM data set line group, reference 

I should be made to Operating System/360, Basic Telecommunications Access 

j Method (GC30-2004). At least one communication line must exist within 

each line group. At least one physical terminal must exist for each 

communication line. 

The master terminal of IMS/360 must be a 2740 or a 1050 physical 
terminal attached through a nonswitched communication line,. It must be 
either the only terminal on the line or the first terminal on a 
multidrop line.. 
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Master Terminal 

The master terminal is the heart of IMS/360. Particular attention 
should be given to the caliber of operator selected for the position. 
The operator should have knowledge of all the operating aspects of the 
system. The Systems Operation function should decide whether the master 
terminal operator is adequately trained. 

The physical location of the master terminal with reference to the 
computer console is important. If for security reasons they are not in 
close proximity, telephone communication must be provided. 

The details of starting the system, checkpoint, restart, and all the 
other commands available to the master terminal are contained in the 
IMS/360 Operations Manual,, Volume II - Machine Operations . 

IMS/360 Systems with No Master Terminal 

It is strongly recommended that IMS/360 systems be configured with a 
master terminal. Under certain conditions, however,, it may be 
impractical to provide a master terminal facility; for example, at an 
installation intended to support only a small number of switched network 
terminals. A specific example might be a Data Center where IMS/360 
communications activity might be scheduled infrequently for 
demonstration purposes only. 

The System/360 console may serve as a master terminal input facility 
for the majority of IMS/360 commands and as an output facility for most 
IMS/360 messages intended for the master terminal. The following 
IMS/360 master terminal functions are not supported for the system 
console: 

• Transaction message input from the system console 

• Message switching message input from the system console 

• Transaction or message switching output 

• /BROADCAST commands (neither input nor output) 

• /DISPLAY,, /RDISPLAY commands (neither input nor output) 

• /TEST input commands 

• /EXCLUSIVE input commands 

• /END input commands 

System Definition Considerations with No Master Terminal 

Stage 1 input to the system definition procedure must include a 
definition of a master terminal. See "System Definition Examples" in 
Chapter 4 for appropriate definition. 

Punched output from Stage 1 includes a DCB open list, which includes 
a pointer to the master terminal DCB. This list is located at label 
DFSICDB within module DFSICLLO. Users intending to execute without a 
master terminal may remove the two cards representing the address word 
for the DCB that is not to be opened,. If the DCB pointer was the last 
entry in the list, adjust the end-of-list indicator byte, X'80*, in the 
preceding address word. A temporary alternative, and more easily 
implemented, would be to simply remove the DD cards generated for that 
communication line group in the IMSO and IMS1 cataloged procedures. 

Format of IMS/360 Commands Entered from System Console 

r nn, f /NRESTART CHKPT 0* 
r nn, '/START LINE 4« 

Format is that of Operating System/360 write-to-^operator reply messages. 
Alphabetic information within quotation marks may be uppercase or 
lowercase. 
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Remote Terminals 

The section entitled "Line and Terminal Network" deals with the 
initiation of IMS/360 and remote communication lines and terminals,. The 
details of the remote terminal command language are contained in both 

| the IMS/360 Program Description Manual and the IMS/360 Operations 

I Manual, Volume II - Machine Operations . 

The training of the remote terminal operator should be monitored by 
the Systems Operation function. 

There should be communication between the master terminal operator 
and the remote terminal operators, probably by way of the /BROADCAST 
command. 

| In the following discussions, references to "physical terminal" 
J always refer to the relative physical terminal on the line. 

IMS/360 Logical Terminals » 

In addition to the definition and presence of physical terminals, 
communication lines,, and BTAM communication line groups, IMS/360 
requires a user to define one or more logical terminals for each 
physical terminal,. A logical terminal is a resource within IMS/360 
which is identified by a one- to eight- character alphameric name. Each 
logical terminal name within IMS/360 must be unique and must begin with 
an alphabetic character. The logical terminal is the means by which 
IMS/360 classifies input and output message data for one or more users 
of a particular physical terminal. The following list presents some of 
the reasons for the use by IMS/360 of the logical terminal concept. 

1. Associated with each logical terminal is security definition. 
) Each logical terminal may have unique or overlapping security 

definition with any other logical terminal defined within 
IMS/360. 

2. Multiple logical terminals may be associated with a single 
physical terminal. This can facilitate the use of a single 
physical terminal by multiple users, each associated with his 
unique logical terminal, especially if each logical terminal has 
a unique security definition. 

3. The logical terminal is the interface between IMS/360 and the 
terminal operator and in addition, is the interface between an 
application program and a physical terminal. Using this 
approach, an application program can be insensitive to the 
idiosyncracies of a particular physical terminal and the 
communications network type by which it is attached. A 
significant degree of equipment independence is achieved,, because 
the logical terminal provides a symbolic interface to the 
application program. 

4. Because a logical terminal is a resource within IMS/360, it can 
be dynamically associated with different physical terminals by 
means of the /IAM and /ASSIGN commands. These commands thus 
allow the IMS/360 user an additional degree of flexibility and 
reliability in the use of his physical terminals. 

Logical Terminal/Physical Terminal Relationship on Nonswitched 
Communications Network 

v The best manner in which to describe the relationship between a 

) terminal user, a physical terminal, a communication line, and a logical 

^ terminal is a diagram: 
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When an IMS/360 system user defines the IMS/360 system to his data 
processing environment, this definition includes the characteristics and 
relationships of physical terminals, communication lines, and logical 
terminals. On a nonswitched communication line, the relationship 
between a physical terminal at one end and a logical terminal within 
IMS/360 at the other is a stable relationship defined at system 
definition time. If there is only one user of a particular physical 
terminal, typically there is a one-to-one relationship between physical 
terminal and logical terminal. However, if a particular physical 
terminal is employed by multiple users, it may be more typical to have 
many logical terminals associated with the physical terminal. Perhaps 
the system definition includes a logical terminal for each user of a 
particular physical terminal. 

Once the relationship is established between a physical terminal and 
one or more logical terminals at system definition, the association can 
be changed only through the /ASSIGN command or a new system definition. 
The /ASSIGN command is normally executable from the master terminal 
only. 

Logical Terminal/Physical Terminal Relationship on Switched 
Communications Network 

The logical/physical terminal relationship on a switched 
communications network is considerably more complex than in the 
nonswitched communication line environment. The IMS/360 system 
definition is again the process which defines the characteristics of the 
physical terminals, communication lines, and logical terminals. 
However, the relationship between a particular physical terminal and a 
logical terminal is not established until the remote terminal user dials 
the System/360 computer to communicate with IMS/360. The relationship 
between a terminal user, a physical terminal, a communication network, 
and IMS/360 logical terminals at system definition time is depicted in 
the following diagram: 



64 



LINES 




<#-*> 



PHYSICAL 
TERMINAL 



^ (2)- w 



i 


IMS/360 






I 


i 
i 


LOGICAL 
TERMINALS 


1 
! 
1 
| 


^ 




1 



Once the remote terminal user dials the System/ 360 computer and 
issues the /IAM command to sign himself on to IMS/360, a stable 
relationship between the physical terminal and one or more logical 
terminals is established. 
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Logical Terminal Types in Switched Communications Network Environment 

In a switched communications network environment, the IMS/360 user 
employs system definition to define one or more communication lines. 
One logical terminal must be associated with each of these lines. This 
logical terminal is designated as the inquiry logical terminal for the 
dialable communication line. In addition to an inquiry logical terminal 
for each dialable communication line, pools of logical terminals may be 
defined at system definition time. One or more logical terminals from 
the pools of logical terminals are associated with a particular line 
when a remote terminal user dials the IMS/360 system. The number of 
logical terminal pools which are defined for a switched communications 
network depends upon the number of WATS areas employed by an IMS/360 
user. There is a one-to-one relationship between a WATS area and a 
logical terminal pool. 

Within any logical terminal pool for a switched communications 
network, the IMS/360 user can define logical terminal subpools. A 
logical terminal subpool is composed of one or more logical terminals 
within a given logical terminal pool. A particular logical terminal can 
exist in only one pool and subpool. A remote terminal user can dial the 
IMS/360 system and sign on for a single logical terminal or for all 
logical terminals within a logical terminal subpool. At system 
definition, the environment appears as indicated in the following 
diagram: 
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After a remote terminal user has dialed a System/360 computer 
operating under IMS/360, several situations can exist. If the /IAM 
command is used to sign on and the LTERM parameter specifies the inquiry 
logical terminal, the following diagram applies: 
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If the /IAM command is used to sign on and the LTERM parameter 
specifies a logical terminal from the pools of logical terminals, the 
following diagram applies: 
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If the /IAM command is used to sign on and the LTERM and PTERM 
parameters are specifiedt all logical terminals within a subpool are 
associated with the physical terminal. 

The use of the logical terminal subpool concept allows for efficient 
use of communication facilities. All output queued on each of the 
logical terminals in the subpool for which the /IAM command was issued 
is sent to the physical terminal. 

A subpool may be defined to contain the logical terminals for all of 
the users of a single physical terminal. While a user is signed onto a 
logical terminal within the subpool,, the subpool is unavailable to users 
signing on from other physical terminals. This is true whether or not 
the PTERM parameter is used in the /IAM command. 

All inquiry logical terminal names must begin with the same first 
four characters. When signing on for an inquiry logical terminal, only 
the first four characters are_ considered significant by IMS/360. This 
permits a user to telephone in on any Autoanswer line and to sign on for 
and use the inquiry logical terminal for inquiry transactions only,, if 
he simply knows the first four characters. The inquiry logical terminal 
can be used only for immediate-response, nonupdate transactions, and 
queued output is preserved on it for the duration of signon. So that 
IMS/360 can distinguish inquiry logical terminal names from subpool 
logical terminal names at signon, no subpool logical terminal name may 
begin with the first four characters used for inquiry logical terminal 
names . 

Line and Terminal Network 

The planning and logistics of the teleprocessing line and terminal 
network must be considered. The IBM Field Engineers and the resident 
telephone company should have made their final checkout of the network, 
thus giving the assurance if IMS/360 is operational that the network 
will function. 

An additional review of the Systems Operation checklist at this time 
should perhaps be made. A look at the section titled "Application 
Development and Structuring of IMS/360" in the IMS/360 Program 
Description Manual may also be beneficial at this time. 

The IMS/360 security maintenance program need not be executed before 
the IPL of the IMS/360 teleprocessing system. If password and terminal 
security are later installed, they become effective at the next "cold 
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start" of IMS/360 or at the master terminal operator's option at the 
next "warm start". 

The Systems Operation function should keep records of the 
physical- line- to-physical-terminal relationship and the 
physical-to- logical-terminal relationship, and of their relationship to 
the particular application program. Add the security maintenance 
characteristics, when they exist, and any information from the Machine 
Operations function as to line and terminal trouble reports,. 

When lines and terminals are installed and operating, when PSB 
generation and DBD generation are complete, and when system definition 
is complete, then, and only then, can the line and terminal network 
pertaining to an IMS/360 teleprocessing application be employed,. The 
steps are as follows: 
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This procedure executes IMS/360 Type 
region, the online processing 
region. 




Master terminal operator (MTO) 
starts region. 



REMOTE 

TERMINAL 

OPERATOR 

DIALS 

ANSWERING 

LINE 



This procedure executes IMS/360 Type 
1 processing region. 



REMOTE 
TERMINAL 
OPERATOR 
SIGNS ON 



Master terminal operator starts all 
communication lines. 



IMS/360 Terminal Commands and Messages ^ 

This section serves only to introduce the commands that must be 
considered in the development of an IMS/360 system. A quick index 
follows. For an operational discussion and details of terminal 
commands, refer to the IMS/360 Operations Manual , Volume II - Machine 
Operations . 
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For the purpose of dynamically interrogating or altering the 
processing functions of IMS/360, special messages may be entered from 
terminals. These messages are known as command messages and are 
designated by a slash in the first position of the message. 

Most command messages are limited to a single line in length. Any 
command message results in the issuance of completion or error messages 
to the originating and affected terminals. Furthermore, these response 
messages override any limiting status of a particular line or terminal. 

Certain command messages should be restricted to entry from the 
master terminal, the source of systems control and information messages. 
These are the messages that interrogate, alter, and control the overall 
system. The System/360 console itself may be used as a master terminal 
in relation to the entry of master terminal commands. 

Other command messages may be entered from any terminal, within the 
limitations of user-defined terminal security provisions. The function 
of the remote terminal command language is to change the status or mode 
of operation of the user's own terminal to provide extended security 
facilities and to provide extended user message entry or data output 
facilities. 

The master terminal commands for restart, checkpoint, data base dump, 
and data base recovery are treated separately in a later section of this 
chapter . 

Refer to the Machine Operations Manual for a description of the 
commands. The following is provided as a guide in determining which 
command to use. 



Command 



1. /ASSIGN 



Explanation of Command 
This command : 



• correlates a specified logical 
terminal with a specific physical 
terminal 

• temporarily assigns a current 
priority to one or more specific 
transaction codes 

• assigns a particular limit 
priority to one or more specific 
transaction codes 

• assigns a particular normal 
priority to one or more specific 
transaction codes 

• assigns a particular limit count 
to one or more specific 
transaction codes 



/BROADCAST 



• assigns a particular processing 
limit count to one or more 
specific transaction codes 

This command transmits messages to 
one or more terminals. 



3 . /CANCEL 



This command causes the cancellation 
of the complete message currently 
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being entered into the same 
terminal. 



U . /CHANGE 

5. /CHECKPOINT 

6 . /DBDUMP 

7. /DBLOG 

8 . /DBNOLOG 

9 . /DBRECOVERY 
10. /DELETE 



11. 



13. 
14. 

15. 
16, 



/DISPLAY 



12. /END 



/ERESTART 
/EXCLUSIVE 

/IAM 
/LOCK 



This command is used to change one 
password to another. 

(See later section in chapter.) 

(See later section in chapter.) 

This command starts data base 
segment logging, which allows 
backout of data base modifications 
during emergency restart. 

This command stops data base segment 
logging . 

(See later section in chapter.) 

This command: 

• eliminates password security for 
one or more transaction codes , 
physical terminals, logical 
terminals, programs, or data bases 

• eliminates terminal security for 
one or more transaction codes 

This command displays critical 
fields of certain IMS/360 control 
blocks and system queues. 

This command terminates the mode 
initiated through the /TEST or 
/EXCLUSIVE command. 

(See later section in chapter.) 

This command places the user's 
terminal into exclusive use or 
inquiry mode. 

This command allows a terminal user 
at a switched line terminal to 
identify himself. Required if a 
switched (dialup) terminal. 

With keyword TRAN, do not schedule 
this transaction code. 

(If a particular transaction code 
cannot be processed correctly, use 
this command at the remote terminal 
to ensure that this transaction code 
is not scheduled . ) 

With keyword PROGRAM, do not 
schedule this program. 

(If a particular program cannot be 
executed correctly, use this command 
at the remote terminal to ensure 
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that this program is not scheduled 
or used.) 

With keyword DATABASE, do not 
schedule any program that uses this 
data base. 

(If a particular data base is not 
correct, use this command at the 
remote terminal to ensure that no 
program is scheduled that uses this 
data base.) 



17 . /LOG 



18 . /NRESTART 



With keyword PTERM, queue output but 
do not send output to this physical 
terminal . 

(PTERM applies to the physical 
terminal into which the command is 
entered. A password may be included 
with the keyword PTERM; no 
parameters are acceptable. /LOCK 
and /UNLOCK are used with 
nonimmediate- response- type messages 
only. The user can enter a series 
of nonimmediate-response-type 
messages and lock his terminal. No 
response will be printed on the 
terminal until such time as the 
terminal is unlocked. Exception: 
system messages will be printed.) 

With keyword LTERM, queue output but 
do not send to these logical 
terminals . 

(These commands are used with 
nonimmediate-response-type messages 
only. The user can enter a series 
of nonimmediate-response-type 
messages and /LOCK his terminal. 
This normally implies that the 
messages must be secured by logical 
terminal, since the user must know 
what logical terminal or terminals 
to lock. No responses will be 
printed on the terminal until such 
time as the terminal is unlocked. 
Exception: system messages will be 
printed. ) 

This command: 

• causes the contents of the message 
entered at this terminal to be 
logged but not processed by a 
program. The slash is the first 
character logged. 

• applies only to the currently 
entered message line and does not 
establish a continuing operational 
mode 

(See later section in chapter.) 
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19. /PSTOP With keyword LINE: 

• do not receive input 

• do not send output 

• queue output 

With keywords LINE and PTERM: 

• do not receive input 

• do not send output 

• queue output 
With keyword LTERM: 

• queue output messages 

• do not send messages to this 
logical terminal 

With keyword TRAN: 

• queue input 

• do not schedule this transaction 
code 

20. /PURGE (/PURGE and /STOP stop queuing of 

output only if the message to be 

queued originates at the terminal 

(message switching) . Output from an f 

application program is always V v 

queued. ) 

With keyword LINE: 

• do not poll 

• send output 

• do not queue output 

With keywords LINE and PTERM: 

• do not receive input 

• send output 

• do not queue output 
With keyword LTERM: 

• do not queue output messages 

• send messages to this logical 
terminal 

With keyword TRAN: 

• do not queue input 

• schedule this transaction code V^ 
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21. /RDI SPLAY 

22. /RESET 

23. /SET 



24. /START 



25. /STOP 



This command displays the 
identification of the master 
terminal. 

This command negates the action of 
the /SET command. 

This command allows the setting of a 
destination mode for messages 
entered thereafter into the entering 
physical terminal. The destination 
must be a TRAN code or an LTERM 
(message switching) , thereby 
eliminating the use of a destination 
code. 

With keyword LINE: 

• poll 

• send output 

• queue output 

With keywords LINE and PTERM: 

• receive input 

• send output 

• queue output 
With keyword LTERM: 

• queue output messages 

• send messages to this logical 
terminal 

With keyword TRAN: 

• queue input 

• schedule this transaction code 

With keyword DATABASE, schedule a 
program using this data base. 

With keyword PROGRAM, schedule this 
program. 

With keyword REGION, use the 
facilities of OS/360 to start a 
message region (one) . 

(This command is cumulative in 
effect. To start two message 
regions, the command is entered 
twice. The processing is also done 
on a net basis. If /START were 
entered once, the net result would 
be to start one message region. ) 

(/PURGE and /STOP stop queuing of 
output only if the message to be 
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queued originates at a terminal 

(message switching) . Output from an 

application program is always 

queued . ) z' 

With keyword LINE: v 

• do not poll 

• do not send output 

• do not queue output 

With keywords LINE and PTERM: 

• do not receive input 

• do not send output 

• do not queue output 
With keyword LTERM: 

• do not queue output messages 

• do not send messages to this 
logical terminal 

With keyword TRAN: 

• do not queue input 

• do not schedule this transaction 

code /" 



With keyword DATABASE, do not 
schedule a program using this data 
base. 

With keyword PROGRAM, do not 
schedule this program. 

With keyword REGION, use the 
facilities of OS/360 to terminate a 
message region (one) . 

(This command is cumulative in 
effect. To stop two message 
regions,, the command is entered 
twice. The processing is also done 
on a net basis. If /STOP were 
entered once, the net result would 
be to stop one message region.) 

26. /TEST This command implies that no 

independent messages will be 
transmitted to the user's terminal. 
Messages entered into the user's 
terminal are transmitted back to the 
user's terminal,. 

27. /UNLOCK With keyword TRAN, schedule this 

transaction code. 
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With keyword PROGRAM, schedule this 
program. 



With keyword DATABASE, a program may 
be scheduled that uses this data 
base. 



With keyword PTERM, queue output and 
send output to this logical 
terminal. 



(PTERM applies to the physical 
terminal into which the command is 
entered. A password may be included 
with the keyword PTERM; no 
parameters are acceptable. /LOCK 
and /UNLOCK are used with 
nonimmediate-response-type messages 
only. The user can enter a series 
of nonimmediate-response-type 
messages and /LOCK his. terminal. No 
response will be printed on the 
terminal until such time as the 
terminal is unlocked. Exception: 
system messages will always be 
printed . ) 



With keyword LTERM, queue output and 
send output to these logical 
terminals . 



| A detailed discussion of the commands is in the IMS/360 Operations 
I Manual, Volume II - Machine Operations . 



IMS/360 MESSAGE QUEUES 

Because an understanding of IMS/360 message queues affects the 
decision for Items 7c, 7 j, and 16 of the Systems Operation checklist and 
restart, the following is presented. 

The IMS/360 control program provides the capability to queue messages 
received on direct access storage and in core storage. Messages may be 
received from communication terminals or application programs and may be 
destined for communication terminals or application programs. A message 
destined for an application program is called a transaction and begins 
with a transaction code. All transactions of the same type (same code) 
are queued in a serial chain based upon time of receipt by IMS/360. A 
serial queue exists for each defined transaction code. All messages 
destined for a particular communications logical terminal are queued 
serially like transactions. A serial queue exists for each defined 
logical terminal (Figure 16) . 
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Figure 16. IMS/360 message queues 

All messages received are written to direct access data sets. 
However, the core storage buffers used by the IMS/360 control program 
are used on a rotating basis, thus retaining an image of the message in 
core as long as possible. If the message still exists in core storage 
when it is dispatched to its destination (input to a program or output 
to a terminal or another program) , reference to the direct access data 
sets is not necessary, since the IMS/360 control program uses the incore 
storage image. All messages received are written to direct access data 
sets to ensure that a copy is available if the IMS/360 system or 
Operating System/360 fails (the contents of core storage are lost) . In 
addition, all messages received are written to the IMS/360 system log in 
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consideration of possible failure of the direct access data set queues. 
The reuse of core storage buffers that already contain messages which 
have not been sent to their destinations is based upon the time that the 
message has remained in the system; the oldest buffer is used first. 

Messages received may be represented by single or multiple lines of 
text. If a message is represented by multiple lines of text, the queues 
are stored on direct access and in core storage in a blocked format. 
The blocking factor is determined by the device upon which the various 
queue data sets are resident. 

The IMS/360 control program utilizes OSAM data sets for direct access 
queue storage.. Either two or four data sets are required: one or. two 
data sets are used for input and output of single- line messages, and one 
or two data sets for input and output of multiple-line messages. The 
choice of two or four data sets is made by the IMS/360 user at system 
definition time (Item 7 j oh the Systems Operation checklist) . Figure 17 
shows examples of storage using two or four data base sets. 
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Figure 17. Examples of two or four data base sets for direct access 
queue storage 

The IMS/360 message queue data sets must be preformatted before 
initial usage. The preformatting is performed by restarting IMS/360 
with a request to format. The need to reformat the message queues 
arises only if an input/output error occurs within a queue data set. 



78 



The use of preformatted queues provides increased performance and 
reliability- Performance is increased through the preassignment of 
direct access storage records for any chain of messages, resulting in a 
reduction in the number of input/output operations for management of the 
/ queues- Reliability is increased with the preformatted data sets 

because the count field of the direct access device record X is not 
relied upon to write record X+l. Since direct access space is allocated 
sequentially on a chronological basis even though the queue chains are 
random, a write error results in the assignment of the next available 
direct access record- A write error does not result in the inability to 
write subsequent records in the data set as might be the case with 
unformatted queue data sets- The effect of a write error is the 
automatic assignment by IMS/360 of an alternate direct access record 
(the next sequential record in the data set). The preformatted record 
in which a write error is encountered is skipped over. No queue chain 
points to this record; in effect, it is lost space on the direct access 
| volume. Approximately 10 seconds is required to format each 2314 
j cylinder without write- checking and 20 seconds with write-checking in an 
IMS/360 message queue data set. 

Until formatted space within a direct access device data set used by 
IMS/360 for message queues is exhausted, records are allocated on a 
sequential basis from the beginning to the end of the data set and no 
reuse of space is attempted. When an entire data set is exhausted,, 
IMS/360 will begin to reuse space (records) which no longer contains 
active messages (are already sent to their destinations) . Once reuse of 
data set records occurs, a reduction in queue performance is experienced 
because of the need to maintain a free queue of direct access space. 
The IMS/360 system may subsequently be terminated with a checkpoint 
purge or dump queue- A restart with build queue operand after a purge 
or dump queue causes the allocation of queue space to be reinitialized 
to the beginning of the queue data sets. 

J In order to provide for message queue recoverability if the queue 

data sets are destroyed, the IMS/360 control program logs: 

1. All input and output message text 

2. The queue pointers to each message queue chain whenever a message 
is enqueued onto or dequeued from the chain 

If a system failure occurs and the message queue data sets are 
retained intact* the restart facilities of IMS/360 can properly 
reposition the queues by use of the enqueue/dequeue pointers which were 
logged. If the queue data sets are destroyed, the restart facilities of 
IMS/360 can be employed to rebuild the queues from the log entries of 
message text. 

Message Queue Space Allocation 

The amount of direct access storage space allocated to the message 
queue data sets depends upon how many data sets are used (two or four) , 
how many messages are received and sent to terminals, and the length of 
the messages received and sent. The best way to provide guidance for 
space allocation is to consider a specific example. Assume: 

1. The system has four message queue data sets. 

2. The multiple-line data sets contain physical blocks equal to five 
message lines (one message line and prefix is approximately 200 
characters — multiple-line buffer for five lines is 

\ approximately 700 characters; the other four lines do not contain 

J a prefix) . 
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3. 50,000 input messages a day (12 hours of operation) and 50,000 
output messages are handled. 

4. 10,000 of the 50,000 input messages are multiple-line messages 
with an average of five lines. 25,000 of the 50,000 output 
messages are multiple- line messages with an average length of ten 
lines. 

5. Nine multiple-line OSAM records per 2314 track and 20 single-line 
OSAM records per 2314 track. 

• First, calculate the single-line input/output message space 
required: 

50, 000 = single-line messages 

20 single-line messages/track 

input single-line input tracks = 2500 

input single-line cylinder = 125 cylinders 

output single-line cylinders = 125 cylinders 

• Second, calculate the multiple-line input message space 
required: 

10,000 = multiple-line input messages 
9 multiple-line messages/track 

1112 = tracks for multiple-line input 
messages 

56 = cylinders for multiple-line input 
messages 

• Third, calculate the multiple- line output message space 
required: 

2x25,000 = records per output message x multiple-line output messages 
9 multiple-line output message/track 

5, 556 = tracks for multiple-line output messages 
278 = cylinders for multiple-line output messages 

The total space requirements are 584 cylinders of 2314. This space 
requirement is of course an outside limit because no consideration has 
been given to the reuse of message queue space. Although reuse of 
direct access space is quite practical, it does reduce the efficiency of 
message queuing (Item 7j on the Systems Operation checklist). 

Using the above example, assume also: 

200 transaction types (SMB's) 
200 logical terminals (CNT's) 

Since reuse of queue space is dependent upon the turnover of 
messages, calculate the average message turnover per QCB per hour: 

50,000 = total messages to be processed 

12x200 number of hours x number of queue blocks (SMB's or CNT's) 

21 = number of messages to be turned around per QCB per hour 

To run three hours before reuse begins , allocate 

3x21x200 = hours x turnovers x number of gueue blocks 
20 single-line messages (QCR's) per 2314 track 
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Input single-line tracks = 12 y 600 = 630 

20 
Input single-line cylinders = 630 = 32 

20 
Output single- line cylinders= = 32 

It was determined that one oat of five input messages is a multiple 
line. Therefore, 

12,600 = multiple-line records x number of messages in time period 
5x9 total messages x multiple-line records per 2314 track 

Input multiple- line tracks = 3150 = 350 tracks 

9 
Input multiple- line cylinders= 350 = 18 cylinders 

20 

(2x25,000) x 12600 = multiple-line records x number of messages in time period 
50,000 x 9 total messages x multiple-line records per 2311 track 

Output multiple- line tracks = 12, 600 = 1400 tracks 

9 
Output multiple-line cylinders = 1400 = 70 cylinders 

20 

The total space requirements are 152 cylinders of 2314, if reuse is 
allowed after three hours of running. The overhead incurred when reuse 
has begun is as follows: 

1. For each record written, one read is added to obtain a "next" 
record pointer, 

2. For each QCR record written which had message buffer (s) 
attached, a message buffer must be read and rewritten to provide 
a contiguous chain of message buffer records. 

3. When the last QCR of a string has been reused, at least two 
additional QCR records must be read and one QCR rewritten to 
obtain a new string for reuse. 

The I/O operations per hour prior to reuse are: 

Input QCR writes 4150 

Input message buffer writes 1050 

Output QCR writes 4150 

Output message buffer writes 4150 

Total 13,500 

The I/O operations per hour after beginning reuse are: 



1. Input QCR 
Output QCR 
Input MSG buffer 
Output MSG buffer 

13,500 13,500 27,000 

2. String MSG buffers for reuse: 

Number of strings = number of multiple-line message records 

records per message 



Writes 


Reads 


Total I/O 


4150 


4150 


8300 


4150 


4150 


8300 


1050 


1050 


2100 


4150 


4150 


8300 
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Input = 
Output = 



1050 

1 
4150 



1050 strings 
2075 strings 



Writes Reads 

String input message buffers 1050 1050 

String output message buffers 2075 2075 

3125 3125 

3. To obtain QCR strings for reuse: 



Total I/O 

2100 
4150 
6250 



Since reuse begins after three hours of operation and all 
records have been reused after six hours, the average QCR string 
may be calculated: 



hours x MSG 



3x21+6x21 



189 = 



94 



The average QCR string obtained is two less than the actual QCR 
string: 

94-2 = 92 

Searches for Input QCR string = 



records 


required 


string 


length 


4150 
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46 





Since the output message queuing requires two physical queues per 
CNT, the average QCR string is half as long as an input string: 



94 
2 



- 2 = 45 



Searches for output QCR strings = 



records required 
string length 

4150 
45 
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I/O for input QCR search 
I/O for output QCR search 



Writes 

46 
93 



139 



Reads 

92 
186 
278 



Total I/O 

138 
279 
417 



The overhead imposed by reuse in this instance is: 

27,000+6250+417-13,500 = 20,167 I/O operations per hour 

The IMS/360 system definition execution can generate a procedure for 
execution of the IMS/360 control program in the Type processing 
region. This procedure includes DD cards for the message queue data 
sets but assumes the user has allocated the data sets. Message queue 
data set allocation is the responsibility of the IMS/360 user. The 
message queue data set DD cards should include the following parameters: 
SPACE= , DISP= , UNIT= , VOLUME=SER= , and DCB=(DSORG=PS) . 
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Message Queue Space Allocation - Secondary 

For most efficient operation, message queue data set space should be 
allocated in terms of contiguous cylinders on separate devices. 
Secondary allocation should not normally be requested. If secondary 
allocation is requested, all 16 extents will be obtained at the time the 
queue data set is formatted. 

IMS/360 CHECKPOINT, RESTART, DATA BASE DUMP, AND DATA BASE RECOVERY 

This section attempts to provide the reader with a description of the 
checkpoint and restart facilities of IMS/360. The operational details 
of checkpoint, restart, data base dump, and data base recovery then 
follow in this manual and in the IMS/360 Operations Manual , Volume II - 
Machine Operations . 

Checkpoint 

The checkpoint facilities of the IMS/360 control program provide the 
means for periodically recording control information and status to 
enable IMS/360 restart after failure. This failure may be the 
termination of the IMS/360 control program or the loss of Operating 
System/360, In addition, the checkpoint facilities are the means for 
terminating the IMS/360 system in an orderly way, creating a tape image 
(backup) of a data base used for message processing, or assisting in the 
reconstruction of a data base which has been destroyed. There are four 
checkpoint commands and two data base dump commands. All these commands 
are executed from the master terminal of IMS/360. 

Simple Checkpoint 

The first checkpoint command is /CHECKPOINT with no operands (simple 
checkpoint) . It may be invoked automatically by the IMS/360 control 
program or from the master terminal. The automatic invocation of simple 
checkpoint is based upon the number of entries to the system log. The 
user of IMS/360 may specify the number of entries between system- invoked 
checkpoints during system definition. The simple checkpoint, like all 
other checkpoint commands, uses the IMS/360 system log for recording 
control data. The simple checkpoint logs the status of all dynamically 
changing IMS/360 control program blocks. These include the 
logical-to-physical-terminal relationships, the input and output message 
queue control blocks, the security blocks, and others,. The simple 
checkpoint command causes the scheduling of programs into message 
processing regions to halt momentarily while the control block 
information is logged. The simple checkpoint command has no effect upon 
internal operations in the IMS/360 control program or operations upon 
the communication lines. As soon as the simple checkpoint command is 
terminated, scheduling into message regions is automatically initiated 
by the IMS/360 control program. 

Checkpoint Freeze 

The three remaining checkpoint commands are each used for orderly 
termination of the IMS/360 system. Each is invoked only from the master 
terminal. The checkpoint freeze command is the fastest means of orderly 
termination. Input communication lines are terminated as soon as any 
messages being entered are completely received. Output communication 
lines are terminated as soon as any messages being sent are completely 
transmitted. Message regions are terminated as soon as the current 
messages being processed have been completed. All input messages 
remaining to be processed and all output messages remaining to be 
transmitted are retained in the message queue data sets. The same 
mechanics as in simple checkpoint are now invoked to log the status of 
all control blocks. Finally, the checkpoint facility causes the 
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termination of the IMS/360 control program job. The IMS/360 user should 
employ the /NRESTART command without message gueue reconstruction to 
restart IMS/360 after a /CHECKPOINT FREEZE. 

Checkpoint DUMPQ 

The checkpoint dump gueue command operates in exactly the same manner 
as the checkpoint freeze command, but performs the additional function 
of dumping all the input and output messages out of the message gueue 
data sets. The /NRESTART command with message queue reconstruction 
should be employed to restart IMS/360 after a checkpoint dump queue 
termination. The restart of IMS/360 in this manner causes allocation of 
space in the queue data sets to start from the beginning of the data 
sets. The messages dumped from the queue data sets during the 
checkpoint dump queue command are reloaded into the message queue data 
set during the /NRESTART with-message-queue-reconstruction command. 

Checkpoint PURGE 

The checkpoint purge command is the most orderly yet most 
time-consuming manner of terminating IMS/360. The input communication 
lines are terminated first as soon as all messages being entered are 
completely received. All messages in the input queue are processed, and 
all resultant output messages are transmitted to their specified 
destinations (terminals, etc.). The message regions are then 
terminated, and output communication lines are stopped. Finally, any 
input messages which could not be processed or any output messages which 
could not be transmitted are dumped to the IMS/360 system log, and the 
IMS/360 control program job is terminated. The /NRESTART command with 
message gueue reconstruction should be employed to restart IMS/360 after 
termination with a /CHECKPOINT PURGE command. 

Data Base Dump 

The data base dump capabilities of checkpoint include the functions 
of creating a dumped tape image of a complete data base and performing 
preparatory functions for the reconstruction of a data base. 

The /DBDUMP command, which is also entered from the master terminal, 
creates a dump tape image by stopping all transaction input from 
terminals that would update the data base and processing all 
transactions already in the input queue against the data base. A 
special utility (a message processing program) is then scheduled for 
execution. This message processing program retrieves all segments from 
the data base with GET calls and creates a copy on an HSAM tape data 
base with ISRT calls. When the data base dump is complete, the tape 
volume containing the copy is unloaded. Finally, the update 
transactions that were stopped are again allowed entry from terminals. 
This command causes a Force End of Volume on the IMS/360 log so that a 
new log is started immediately after the data base dump. The user must 
create an application program, PSB for the program, and DBD for the HSAM 
data base if the dump copy is to be subsequently used to restore the 
data base. The application program is executed in a Type 3 region. The 
data base recovery command may then be used to reprocess transactions. 
The HSAM data base is composed of a BSAM data set with a name 
(DFSIDUMP.dbdname) , where dbdname is the DBD name associated with the 
data base which was dumped,. 

A second form of the data base dump command is /DBDUMP with STOP,. 
This command is used in preparatory procedures prior to data base 
reconstruction. The /DBDUMP with STOP command causes all update 
transactions against a data base that must be reconstructed to be 
retained in the input message queue. However, these transactions are 
not scheduled for processing. The continuance of input of these 
transaction types is allowed, but no processing occurs. The data base 
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must be reconstructed with a batch program executed from an IMS/360 Type 
3 region and a previously dumped copy of the data base. Once the data 
base is reconstructed with the last dump tape, all transactions from the 
data base dump until the current point in time must be reprocessed. 
This is accomplished with the old system log tapes and the data base 
recovery command. 

The DD card for the tape used when dumping a data base to tape with 
the data base dump command is contained in the IMSO procedure supplied 
by IMS/360 system. definition. The DD name of the DD card is DBDUMP. 

Checkpoint Guide 

The following table may be used as a guide in determining which 
checkpoint command to use. 

Command When to Use 

1. /CHECKPOINT If a simple checkpoint is desired 

without terminating the IMS/360 system, 
use this command. 

2. /CHECKPOINT FREEZE Use this command if (1) IMS/360 must be 

terminated quickly, (2) the disk message 
queues will not be disturbed before 
restarting, or (3) the output messages 
can wait until later. 

3. /CHECKPOINT DDMPQ Use this command if (1) IMS/360 must be 

terminated, (2) the disk message queue 
space may be used for other purposes 
before restarting, or (3) the output 
messages can wait until later. 

4. /CHECKPOINT PURGE Use this command if (1) IMS/360 must be 

terminated, or (2) it is desired to 
process and send all messages currently 
in the system. 

All the checkpoints output a message identifying the checkpoint. 
This message is of the following format: 

*CHECKPOINT**yyddd/hhmmtt**type** serial 

where : 

yyddd is the Julian date. 

hhmmtt is the time in hours, minutes, seconds. 

(yyddd/hhmmtt together identify the checkpoint.) 

type is the checkpoint type: SIMPLE, FREEZE, DUMPQ, or PURGE. 

serial is the serial number of the volume on which the checkpoint was 
written. 

The last three checkpoint commands, FREEZE,, DUMPQ, and PURGE, 
terminate all message regions and the IMS/360 control region, region 0. 
For a better understanding of the sequence of events that take place 
with each checkpoint command, see Figure 18. The numbers in each column 
of Figure 18 indicate the sequence of events occurring for that 
checkpoint type. The Abnormal End column defines the termination of 
IMS/360 if an abnormal condition occurs that requires immediate 
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termination of the IMS/360 control program, 
this column should never be used. 



Under normal operation. 



s 



SYSTEM CHECKPOINTS 



SIMPLE 



SHUTDOWN 



PRELIMINARY CONDITIONING 




STOP TERMINAL INPUT 
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1 
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2 


2 


2 


CLOSE QUEUES 






5 


3 


3 


2 
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4 


4 


4 


3 
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1 


1 


1 


5 


5 


4 
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2 


2 


6 


6 


6 


5 
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2 


7 


7 


6 
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3 


8 


8 


7 


RESUME NORMAL 
PROCESSING 


3 


3 










TERMINATE 






7 


9 


9 


8 



Figure 18. Checkpoint sequence 

Data Base Dump Execution 

The data base dump capabilities of checkpoint include the functions 
of creating a dumped tape image of a complete data base and performing 
preparatory functions for the reconstruction of a data base. 

The following is a list of events that should be implemented to 
perform a data base dump: 
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*************** 

* * 

* /BROADCAST * 

*************** 



i 

V 

*************** 

* * 

* /CBOUMP * 
* DATABASE * 

* NAMEIS) * 

* * 
*************** 



*************** 
*QUT.PUT-MSG * 

3fc__— .— — -»— — — — — — * 

* *DBDUMP IN * 

* PROGRESS * 

* * 
*************** 



When it is decided to do a data base 
dump from the master terminal, for 
either backup or reorganization, the 
appropriate users of remote 
terminals should be notified. 



This identifies the data base(s) to 
be dumped and causes the preparation 
in the IMS/360 control program for 
dumping the data bases. 



All input against the specified data 
base(s) is stopped (prohibited 
entry) during data base dump. All 
enqueued messages are processed. A 
simple checkpoint is taken. This 
message is output to the master 
terminal only. 



y 



/ 
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*************** 
*QUTPLT-MSG_ 

♦CHECKPOINT 
COMPLETED 
* 
*************** 



a 

V 

*************** 

* * 
♦SCHEDULE DUMP* 
*PGM iNTD MSG * 

♦ REGION * 

*************** 



** * ******** * * * * 
JOUTPUT-NSG * 

* *DBDUHP * 

* COMPLETED * 

* * 
*************** 



*************** 

# * 
* * 

* /BROADCAST. * 

* * 
*************** 



The current IMS/360 system log is 
closed and a new one opened to 
provide a clean starting point in 
case of a later data base recovery. 
This message is output to the master 
terminal only. 



This dumps the data base to tape as 
an HSAM tape data base. A special 
utility message processing program 
which is part of IMS/360 is used for 
all data base dumps. 



The transactions are started 
(allowed entry) and the master 
terminal is notified that the dump 
is complete and that normal 
operations may resume. 



The appropriate users should be 
nbtified that normal operations have 
resumed. 



Data Base Dump with Stop Execution 



Data base dump with STOP is the second form of the /DBDUMP command 
and may be used whenever it is desired to stop the message processing 
activity against a data base. This command is used in preparation for 
data base recovery. The sequence of events for implementing data base 
dump with STOP follows: 
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*************** 

* * 

* /BROADCAST * 

* * 

* * 

*************** 



*************** 

* * 

* /cbdump * 

* database * 

* NAMEiSJ STOP * 

* * 
*************** 



******** ******# 

♦OUTPUT-MSG * 

* ■«• 

* *DBOU**P IN % 
*• PROGRESS * 

* * 
*************** 



*************** 
*OUTPUT-MSG 

* CBDUMP 
COMPLETED 

* 



The terminal users of the data 
base(s) should be notified of the 
impending action. 



This identifies the data base(s) to 
be stopped. 



All transactions which use the data 
base(s) are PSTOPed (that is, input 
messages may be entered and will be 
enqueued, but will not be 
processed) . The data base(s) is 
also closed. A force end of volume 
is employed on the current log tape 
to allow its use in the /DBRECOVERY 
command . 



This notifies the master terminal 
that all data base activity is 
stopped . 



The data base to be rebuilt should now be reconstructed in a Type 3 
region with a previously dumped copy. Then the /DBRECOVERY command and 
all log tapes from the last dumped copy should be used to reconstruct 
the data base to the current point in time. 

Restart 

The restart facilities of the IMS/360 system provide for the recovery 
after failure of IMS/360, its message queues, and the data bases used 
for message processing. This section concerns itself with the execution 
of all the restart facilities and their commands. 



There are two restart commands with various operands, normal and 
emergency restart. The normal restart command is used after the IMS/360 
system has been terminated in a normal manner (that is, with a 
/CHECKPOINT command) . The emergency restart command is employed when 
the IMS/360 system was not terminated normally. There is an event 
listing of each command in this section. 
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The final capability of the restart facilities of IMS/360 is data 
base recovery. Data base recovery is used to rebuild or recreate a data 
base used for message processing. There is also an event listing of the 
data base recovery command in this section. 

Normal Restart Format 

The normal restart command has two basic versions. One version is a 
cold start and involves no previous system log tape. The other version 
is a warm start where the system is restarted with the checkpoint data 
on a previous (normally the last used) system log tape. The format of 
the cold start version is: 



| /NRESTART | GHKPT 
I I 

L 



Checkpoint number zero signifies a cold start, 
warm start version is: 



The format of the 



/NRESTART 



CHKPT 68173/141020 



The checkpoint number specifies Julian date and time of day. 

In addition to the checkpoint number operand, both versions of the 
normal restart command allow the master terminal operator to format the 
message queue data sets. The formatting of the message queue data sets 
need be done only at initial system start (first time use of system), 
when an input/output error occurs, or when the size of the message queue 
data sets is to be changed. The format for the normal restart command 
with formatting is: 



/NRESTART 



/NRESTART 



CHKPT [FORMAT ALL] 



CHKPT 68165/141050 [BLDQ] 

[SER number , number ] 
1 2 



The FORMAT ALL operand causes all message queue data sets to be 
formatted. 



An additional operand, BLDQ (build queue) , may be specified with the 
warm start version of the normal restart command. The BLDQ operand 
should be specified if the system was terminated with a /CHECKPOINT 
PURGE or /CHECKPOINT DUMPQ command. The BLDQ operand assumes that any 
messages remaining in the message queue data sets when the /CHECKPOINT 
PURGE or DUMPQ terminated were logged to the system log tape. The BLDQ 
operand causes the normal restart command to use the old log tape 
specified in the CHKPT operand and to reload, from the log to the 
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message queue data sets, any retained messages, 
normal restart command is: 



The format of the 



/NRESTART | CHKPT 68143/11300 [BLDQ FORMAT ALL] 

[SER number , number 3 
1 2 



The warm start version of the /NRESTART command without BLDQ assumes 
that the IMS/360 system was terminated with a /CHECKPOINT FREEZE 
command. All messages are retained in the message queue data sets. 
When the /NRESTART command (with warm start) is executed, the data on 
the old system log tape provides the IMS/360 system with correct 
positioning within the data set. 

The security information (password and terminal) employed by the 
IMS/360 user can be built from the output of the last security 
maintenance program execution located in IMS.RESLIB or from the 
checkpoint data used to restart. If the information in IMS.RESLIB is 
desired, the normal restart command should include the TERMINAL and 
PASSWORD operands. If the security information from the last checkpoint 
is desired, the normal restart command should omit the TERMINAL and 
PASSWORD operands. 

When a warm start is performed, the IMS/360 user may specify the log 
tape serial number for the old log on a DD card or through an operand of 
the normal restart command (that is,, SER volume). The use of the SER 
operand on a restart command facilitates the use of a cataloged 
procedure for the IMS/360 control program. 

The IMS/360 Operations Manual , Volume II - Machine Operations 
illustrates the use of TERMINAL, PASSWORD, and SER operands for restart. 

Normal Restart Execution 

The following is a list of events that should be followed in order to 
cause a normal restart of IMS/360: 
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*************** 

* LOAD IMS/360 * 
* * 

* * 

*************** 



**,************* 
*GtilPtT-«SG * 

* *IMS READY * 

* DATE/J1PE * 

* * 
*************** 



V 

* * /ERESTART 

* * 

* *NO *** 

* NORMAL *> * 
* RESTART ? * * * 

* * *** 

* * 

* * 

* YES 



*************** 
* * 

* /NKESTART * 
* CHECKPOINT * 

* DATE/TIME OR * 

.* * 
** a ************ 



Load IMS/360 as with any Operating 
System/360 job. 



This message goes to the system 
console and to the master terminal. 
At this point, the operator must 
enter the restart command. No other 
command is acceptable. 



Was the last IMS/360 job terminated 
normally with a checkpoint or will a 
cold start be done? If the answer 
is no, go to the label /ERESTART. 



Begin to enter the restart command, 
yyddd/hhmmss is the checkpoint 
identification. If cold start, 
enter instead of yyddd/hhmmss. No 
EOB yet. 



\ 
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V 
* * CGLD-START 

* *VES *** 
* COLD START ? *> * 

* * *** 

* NO 



V 

* *YE5 

LOG INPUT DO * 

* CARD OK ? * 

* NO 



* S£R= SERIAL . * 
* NUMBER * 

* * 






DUMPQ/PURG * * CGLD-START 

* DUMPQ OR *> * 
* PURGE CKPT ? * * * 

* YES 



If cold start, go to the label 
COLD- ST ART. 



Does the input log DD card specify 
the proper tape volume? 



Add SER parameter to restart command 
and specify tape serial number. It 
should be the serial number from the 
appropriate checkpoint message. 



How was the system last terminated? 
Was the checkpoint specified a DUMPQ 
or a PURGE? 



Go to next page 
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*************** 

* * 

* * 

* '.BUILDQ * 

* * 

* * 
*************** 



CCLC-STAKT * * NRE/SEC 

* * 

* * * * 

* QUEUES NEED *> * 

* FORMATTING ? * * * 

* * 
* * 

* YES 



*************** 

* * 

* * 

* FGKMAT ALL * 

* * 

* $ 
*************** 



Add BUILDQ parameter to restart 
command. This will reconstruct the 
disk message queues from the 
specified checkpoint. 



Is disk message queue allocation 
new? Has their space been used by 
someone else? If warm start, do not 
format unless BUILDQ was specified. 



Add FORMAT ALL to restart command.. 
This will preformat the disk message 
queues. (This is similar to 
Operating System/360 cold start 
formatting the JOBQ . ) About ten 
seconds per 2314 cylinder is 
required for formatting each message 
queue data set. 



/" 



Go to next page 
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NRE/SEC * * 

* ' NEW SECURITY 
* ? # 

* YES 



ENTER * 
PASSWORD * 

AND/OR * 
TERMINAL * 

S{£ # ijt # 4: # !{c # # # # J^ # $ # 



EQB-ENO V 



Has terminal or password security 
been changed? If the output from 
the last execution of the security 
maintenance program is different 
from the terminal or password 
security on the log from the 
checkpoint that terminated the 
system, which is desired? (They can 
be different because of commands 
entered from the master terminal.) 



Add security parameter (s) to restart 
command. Password parameter causes 
new password security to be loaded. 
Terminal parameter causes new 
terminal security to be loaded. The 
absence of the SECURITY parameter 
indicates that the conditions on the 
log tape from the last checkpoint 
shutdown will be used. If present, 
the tables output from the last 
execution of the system security 
maintenance program are used. 



* 



ENTER EOB 



^5^c^4:5[{3{:^c^;^;^?!s^c^s^c^t 



i 



Go to next page 



End of normal restart command. 
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I 

*************** 
*0MT.P4iT-NSG * 

**NRESTART IN * 

* PROGRESS * 

# '■ * 
*************** 



V 

* * NEW-TAPE 

* *YES *** 

* * * * 

* CCLD START ? *> * 

* * * * 

* * *** 

* * 
* NO 



****** ********* 

* * 

* * 
* MOUNT OLD LOG * 

* TAPE * 

* * 
* ** * * * * * * ****** 



************** 4 



REBUILD 
IMS/360 



****** * * ***** * * 



NEb-TAPE V 

*************** 

* * 

* * 

* MCUM NEW * 

* TAPE * 

* * 
*************** 



* * * * * ***** *** * * 

*CUTPUT-MSG * 
* -* 

* *NRESTART * 

* COMPLETE * 

* * 
*************** 



Notification to master terminal that 
restart is in progress. 



If cold start, skip rebuild of 
IMS/3 60 . 



Mount log tape containing specified 
checkpoint. 



Rebuild IMS/360 blocks, pointers, 
and queues (if specified) to status 
of checkpoint. 



Mount log tape to be written by this 
run of IMS/360. 



Complete restart and notify master 
terminal. All commands except 
restart are now acceptable to 
IMS/360. 
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Emergency Restart 

The emergency restart command is used to restart IMS/360 after a 
failure which caused the IMS/360 control program region job or Operating 
System/360 to terminate abnormally,. The emergency restart command 
always employs the last IMS/360 log tape to reinitiate system operation 
if only the contents of core storage are lost. The simplest version of 
the emergency restart command is used when a failure occurs that 
involves only the loss of core storage contents. The format of this 
version of the emergency restart command is: 



1 1 

| /ERESTART j CHKPT 68176/105010 [SER 
1 1 


TAPE50] 


— 1 
1 
1 
1 



The checkpoint number to be used is the last checkpoint executed prior 
to loss of the system. This would have been recorded on the master 
terminal as: 

♦CHECKPOINT COMMAND COMPLETE +68176/105010* SIMPLE +TAPE50 

where +SIMPLE indicates simple checkpoint, and +TAPE50 indicates that 
the volume serial of the system log tape was TAPE50. 

The failure of the IMS/360 or Operating System/360 system may have 
included a failure of the message queue data sets. In this situation, 
the emergency restart command with FORMAT ALL and BLDQ operands should 
be employed. The format of this version of the emergency restart 
command is: 



/ERESTART 



CHKPT 68141/091050 [BLDQ FORMAT ALL] 



[SER number , ... number ] 
1 2 

This command causes all the message queue data sets to be formatted and 
all messages yet to be processed or transmitted to be reloaded from old 
system log tapes to the proper message queue data set. Emergency 
restart with BLDQ and FORMAT ALL operands requires that the IMS/360 
system be restarted from the last cold start or last system termination 
in which the message queue data sets were dumped (that is, /CHECKPOINT 
PURGE or /CHECKPOINT DOMPQ) . If the emergency restart is performed from 
a previous cold start, the checkpoint number must be 0. 

Either version of the emergency restart command attempts to 
reestablish the IMS/360 system as of the time of failure. The message 
queue data sets are repositioned for each input message type and each 
output logical terminal. If the message (s) being processed at the time 
of system failure caused modification of message processing data bases, 
an additional function of emergency restart causes "backout" of any 
partial data base modifications. This is an optional feature of 
emergency restart that is controlled at the data base level. It 
involves the logging of all data base modifications during normal system 
operation for those data bases for which backout is specified. The 
IMS/360 user specifies which data bases are to employ backout in the 
DATABASE macro system definition. 
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Emergency Restart Execution 



The following is a list of events that should be followed in order to 
cause an emergency restart: 



*************** 

* * 

* * 

* LCAD IMS/36C * 

* * 

* * 
*************** 



Load IMS/360 as with any Operating 
System/360 job. 



*************** 

,*GUTPU7-NSG * 

*_________ _ * 

* *IMS READY * 

* DATE/ TIKE * 

* * 
*************** 



This message goes to the system 
console and to the master terminal. 
At this point, the operator must 
enter the restart command. No other 
command is acceptable. 



V 
/ERESJART * * 

* * 
* 

* 
* EMERGENCY 
* RESTART ? 
* 

* * 
* * 

* NC 



CORE-LOSS 

*YES *** 

* * * 
*> * 

* * * 
* *♦* 



Is this an emergency restart? If 
no, enter normal restart. 



*************** 

* * 

* ySE NORMAL * 

* RESXART * 

* PROCEDURES * 

* * 
*************** 



Return to normal restart procedure , 
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CORE-LOSS * * BUILDQ 

* *NO *** 

* * * * 

* LOSS CF CORE *> * 

* GNLY ? * * * 

* * *** 
* * 

* YES 



*************** 

* $ 
*' /ERE START * 

* CHECKPOINT * 
* DAT EAT I ME * 

* * 
*************** 



END-CMO 



i 

V 

* * 

* # 

* *YES *** 

* * * * 

* LOG INPUT DC *> * 

* CARD CK ? * * * 

* * *** 

* * 

* * 

* NO 



J 

V 
*************** 

4= * 

* SER= SERIAL * 

* NUMBER * 

♦ * 

*************** 

i 



Did previous ABEND result in core 
loss only? Are disk message queues 
intact? 



The checkpoint identification will 
be the last checkpoint number 
printed on the master terminal. 



Does the input DD card specify the 
proper volume? 



The serial number should be that 
printed in the checkpoint message. 



Go to next page 
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ENC-CMD V NC-BLOQ 

*************** 

* * *** 

* * * * 

* toe *> * 

* * * * 

* * *** 
*************** 



End of restart command. 



BUI LOG 

*************** 

* /ERESIART * 
* SER= SERIAL, * 

* ...BUILDQ * 
* * 

**** *********** 



*************** 

* * 

* * 

* FORMAT ALL * 

* * 

* * 
*************** 



V 

* * NEW-SEC 

* * 

* *NQ *** 

* RESTART FROM * * * 
* A CHECKPOINT *> * 

* QHBQ OR PURGE * * * 

* 2 * *** 

* * 

* YES 



Emergency restart command with 
BUILDQ- The tape serial numbers 
must be in chronological order 
beginning with the tape used at the 
last IMS/360 cold start or the one 
used at the last checkpoint PURGE or 
DUMPQ. If the message queues are 
destroyed, restart cannot be 
initiated from a simple checkpoint 
or a checkpoint FREEZE. The last 
tape to be used is the one mounted 
at the time of the ABEND. 



This parameter is required for 
emergency restart with BUILDQ. 



This restart must begin at the point 
when the message queues are known to 
be good. This point will be the 
last checkpoint DUMPQ or PURGE or a 
cold start. 



Go to next page 
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**9**** ******** 

* * 
* CHECKPOINT * 

* DATE7TIME * 

* * 

*************** 



NEK-SEC V 

******* *] 



******* 

* * 

* CHECKPOINT C * 

* * 

* * 

********** **** * 



Enter checkpoint identification, 



Enter CHECKPOINT 0. 



V 

* * 

* * 

* *NO 

* * 

* NEW SECURITY * 

* 2 * 

* * 

* * 

* * 

* YES 






*************** 

* * 

* PASSWORD * 
* AND/OR * 

* lERMINAl * 

* * 

* « * * ** * *;* ** * * * * 



, <■ 



ECB-ENOl V NG-BLDQ 

******* ** ****** 

* * *** 

* * * * 

* Ece *> * 
* * * * 

* * *** 

*************** 



Did the cold start used in this 
restart specify either of the 
security parameters? 



Use the same parameter as used on 
the cold start. 



End of restart command. 
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N0-8L0Q 

•Xr-J^tJ, vl* -J/- «V ■**- -J' «■*■* "J* **" '*' •«** -*" »** 

**» -p -^s; *,* -v -f. *,* ^* -*,. ^» ■■,» <y> vr fr 

*OUTPUT-MSG * 

**ERE START IN * 
* PROGRESS * 

4: 4; # v ^c * :£ # ^ $ 3!t # ^: :>£ £ 



Notification to master terminal that 
emergency restart is in progress. 



""»* *Jr* "Y* "P 1 ^* *V* ■*£ "1* T *P ^ T* "P *V* ""P 

MOUNT NEW LOG * 
* TAPE * 

^C *P >,* «■!* 5^ ^. - 4 < * i{£ -^ ?JC *,* -,>^C V 



OLD-LOG V 

^' 3}* 7f ^C .y, -,S -^ -,% 3jC 3;C 5£ 5*C 3,* >,» «,< 



MOUNT OLD LOG 
TAPES 



-5* V 


"V *|- '1* "* 'P *P* "P IP "V 1*" "*f 




* 




# 


* 




* 


* 


REBUILD 


* 


* 


IMS/360 


* 



X* -v -*** ■*»* T" *v x *p *»* -p "i* -Tr" t* <p *p * 



*YES 



MORE LOG 
* TAPES ? 



* NO 



Go to next page 



Mount log tape to be written by this 
run of IMS/360. 



If more than one log tape, they must 
be mounted in the order specified. 






Using the information on the log 
tapes, IMS/360 is restored to the 
point of ABEND. 



Process all log tapes. 
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*#* 


####!!!$* #.$*#* 


* 


* 


* 


START A * 


* 


MESSAGE * 


* 


REGION * 


* 


* 



*#* # * * * * * # jje $ £ # £ 



The message region is started 
directly by IMS/360 and will be used 
in reprocessing partially completed 
transactions . 



* BACK OUT * 
"* PARTIALLY * 

* PROCESSED * 
^TRANSACTIONS * 

£ # # # # £ ^t ^c :{c # # ajc # ^ :Jt 



* ALLOW * 

* PROCESSING * 

* * 



Any unpredictable results from 
transactions in process at the time 
of the ABEND are "backed out" to 
restore the integrity of the data 
bases. 



The partially processed transactions 
are now rescheduled and allowed to 
process normally. 



4*****4*******4 

*C4*J.P4jT-*SG * 

*~ *ERESJART * 

* COMPLETE * 

* * 
***** ***** ****** 



Notification is made to the master 
terminal that restart is completed 
and processing may resume. 



Normal or Emergency Restart in Minimum System 

Where insufficient core storage is available to start the message or 
online batch partition following initiation of the Type control 
region, the sequence of initiation may be reversed. If message or batch 
regions are initiated prior to the Type region, the operator will be 
given the option to wait for the Type region. (See "Messages and 
Completion Codes", message IMS050D, in the IMS/360 Operations Manual, 
Volume II - Machine Operations for a further explanation.) Obviously, 
the user must initiate the IMS/360 Type 1 (message) or Type 2 (batch) 
region with a Job Control Language deck from an Operating System/360 
SYSIN stream rather than a /START REGION command. 

Data Base Backout 

When an emergency restart is necessary,, IMS/360 has failed for some 
reason. When the failure occurred, there may have been one or more Type 
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1 and Type 2 processing regions operative. In addition, these regions 
may have been executing an application program which was deleting, 
updating, or adding to a data base used for message processing. An 
additional function of emergency restart is to "insert" the update, 
delete, or add operations being performed by the application programs at 
system failure. This insertion attempts to place the data base back 
into the state that existed prior to scheduling the application program 
into the Type 1 or Type 2 region. This function of data base backout is 
provided on an optional basis by data base because it involves writing 
all modifications of the <3 a+a ba ses that use the feature to the IMS/360 
system log^ During emergency restart, any changes made to logged data 
bases by all programs actually in progress at the time of failure are 
removed. This restores the data bases and the input message queues to 
the status they had when the program was scheduled. Processing then 
resumes at that point rather than at the point of failure. 

Since IMS/360 cannot schedule programs in the IMS/360 Type 2 batch 
environment, IMS/360 cannot control during emergency restart the 
integrity of any data bases that may be updated in this environment. 
For this reason the use of Type 2 batch programs for updating purposes 
should be discouraged. A possible method for large volume updating is: 

1. The Type 2 batch program is used only as an editing procedure 
that reads the input data, formats it, and routes it as an output 
message to an SMB rather than to a terminal. 

2. As these "messages" are enqueued on the SMB, a message processing 
program is scheduled to perform the actual updates. 

3. The output can be directly to terminals, to an HSAM file to be 
printed by another Type 2 batch job, or to a zero priority SMB 
that can be referenced by another Type 2 batch job. 

4. To effectively use the data base backout facility of emergency 
restart, an audit trail is also needed to allow processing of 
input data to resume at the point of failure. 

Data Base Recovery 

The final capability of the restart facilities of IMS/360 is data 
base recovery. Data base recovery is used to rebuild or recreate a data 
base used for message processing. The concept involves the periodic 
dumping of each data base, using the /DBDUMP command. This command is 
part of the checkpoint facilities of the IMS/360 system. The /DBDUMP 
command causes a copy of a data base to be created as an HSAM tape data 
base. When a data base must be recreated, the /DBDUMP command with the 
STOP operand, the /DBRECOVERY command, and all system log tapes since 
the /DBDUMP are employed. 

First the data base to be recreated must be restored as the last 
dumped copy. This is accomplished by: 

1. Issuing a /DBDUMP command with STOP operand to halt all 
processing against the data base. 

2. Restoring the data base to its state of the last dumped copy. A 
batch program in a Type 3 processing region is employed. 

Then, from the master terminal, a /DBRECOVERY command is issued 
specifying the data base names and the volume serial numbers of the log 
tapes to be used in reconstruction. The format of the /DBRECOVERY 
command is: 
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/DBRECOVERY 




DATABASE name SERIAL number, , numbers 



TAPE 
RESEND 






The DATABASE operand may have multiple names to allow multiple data base 
reconstruction. The SERIAL operand specifies the volume serial numbers 
of the log tapes to be employed . 

The output from the reprocessing of messages during the recovery 
procedure can be handled in one of three ways : 

1. If the TAPE parameter is added to the /DBRECOVERY command, all 
reprocessed output will be logged on the system log; it will not 
be resent to the terminals. 

2. If the RESEND parameter is added to the /DBRECOVERY command, the 
output is resent to the terminals . 

3. If neither TAPE nor RESEND is specified, all reprocessed output 
is ignored. 

The old log tapes are used to reprocess all transactions against the 
data base since the last dump. The DD card used for the tape volumes 
during data base recovery is supplied in the IMSO procedure. The DD 
name is IMSLOGR. 



Data Base Recovery Execution 



The following is a list of events that should be implemented to 
attempt a data base recovery: 
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*************** 
* * 

* * 

* /BROADCAST * 

* * 

*************** 



*************** 
* * 

* /DEDUMP * 
* DATABASE * 
. * NAME IS) STOP * 
I * * 

| *************** 



:** ,* ******** *** * 

* - * 

*" * 

* RELOAD DATA * 
* BASE * 

* * 
*************** 



*************** 

t * 

/DBRECGVERY * 

DATABASE NAME * 

iS) SER - * 

» SER1, ETC. * 
*************** 



If a data base(s) becomes unusable 
and it is decided to attempt a 
recovery, all terminal users of the 
data base(s) should be notified that 
the data base is unavailable while 
it is being reconstructed. 



This allows input messages to be 
accepted and placed in the IMS/360 
message queues, but closes the data 
base itself to allow it to be 
reloaded. The input messages are 
not processed. A "Force End of 
Volume" is also issued to the system 
log tape. 



The latest backup copy of the data 
base should be used to reload it. 
This is done in an IMS/360 Type 3 
processing region (batch) 
environment. 



This specif ies the data base(s) to 
be recovered and the log tapes 
needed. The serial numbers must be 
in chronological sequence. The 
sequence starts with the first one 
after the backup copy was created 
with the /DBDUMP command. Those log 
tapes that are used to restore the 
data base(s) include all those from 
the dump to the log tape mounted 
when this command is given. 



Go to next page 
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*4 4*44444444*4* 
*CUTPC7-NSG * 

» *DBRECCVERY * 

* IN PPGGRESS * 

* * 
** 44 *********** 



44 4 * * * * * ***** * * 

*CUTPLT-MSG * 
4 ____4 

* CHECKPOINT * 
*CG.MfcAND COMP * 

* * 
4**44*4*4*4**** 



MGUNT-TAPE V 

44 4***4* **44 4* 4 

4 * 

* 4 

* MOUNT INPUT * 

* LOG TAPES * 
* * 

*4*4**4******** 



* 4444444* 444*44 

* * 

* * 
.* REPROCESS * 
* TRANSACT IONS * 

* * 

*444444444 44444 



All transactions affecting the data 
base(s) are stopped to further 
input, and a simple checkpoint is 
taken. This message is to the 
master terminal only. 



At this point, the current log tape 
is closed so that it can be used as 
input to the recovery program. A 
new log tape will be opened. This 
message is to the master terminal 
only . 



The input log tapes will be 
requested and processed in the order 
specified in the /DBRECOVERY 
command . 



The input messages will be processed 
from the log tape as if they were 
from the terminals. 



Go to next page 
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V 
* * MOUNT-TAPE 
* * 

* *YES *** 
4c * * * 

* MORE TAPES ? *> * 

* * * * 

* * #4* 

* NO 



Process all tapes listed in the 
command. (This is a system decision 
that will notify the computer 
console.) 



******** ******* 
♦QUTPLT-MSG * 

* *OBR£CGVERY * 

* COMPLETE •* 

* * 
************** * 



*************** 

* /BROADCAST * 

* * 

*************** 



Start all transactions and notify 
the master terminal that normal 
operations may resume. 



Notify all users that normal 
operations may resume. 



Note that the /DBRECOVERY command is a single-line command. If there 
are too many tapes for one line, the command must be reentered for the 
extra tapes after the first one is completed. If the serial number of 
the current log tape is not known, issue a /CHECKPOINT command. The 
checkpoint- completed message will contain the desired serial number. 



SYSTEMS OPERATION INTERFACE WITH OTHER FUNCTIONS 

The main interfaces to the functional portions of IMS/360 are 
delineated in Chapter 1 of this manual. However, a few other planning 
items must be considered. 



Interface with Machine Operations 



Monitor to see that necessary manual logs are maintained, 
following manual logs may be required and/or desirable. 

a. Log of all checkpoints taken, by checkpoint type 



The 
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b- Log for each data base when it was dumped, to what tapes, and 
what IMS/360 log tapes are required if reconstruction is 
necessary 

c. Log of all remote terminals (names, location, telephone 
number connections) 

d. Log of resources - stopped, PSTOPed, purged, started, etc. 

e. Log of all restarts taken, by restart type 

2. Coordinate to the satisfication of the Systems Operation function 
that normal and emergency master terminal operator procedures are 
complete. 

3 . Monitor to see that instructions for remote terminal trouble 
diagnosis and reporting are complete. 

4. Supply machine operators with adequate instructions for 
monitoring data base overflow records. 

5. Supply machine operators with the necessary information for 
controlling and protecting the libraries of PSB's and DBD's. 
(Can use expiration date protection. ) 

6. Coordinate and verify procedures for normal, scheduled batch 
processing of the system log for accounting data (and statistics) 
and interface with users' billing systems. 

7. Coordinate and verify the training of master terminal operators 
and remote terminal operators. 

Interface with Management 

Because the Systems Operation function is the "hub" of the system 
(see Figure 1) , another important interface is with Management. IMS/360 
provides statistical reports and accounting information that can be 
condensed for management analysis. Systems Operation planning should 
provide Management with information on the need for additional 
equipment, and applications to be added to the system, along with backup 
of current and historical data. A weekly and/or monthly report should 
be devised that condenses the information with which Management is 
concerned. 
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CHAPTER 4. IMS/360 SYSTEM DEFINITION 



System definition is the means by which a user of IMS/360 structures 
IMS/360 to the data processing environment. This structuring includes a 
definition of communication line groups, lines, physical terminals, 
logical terminals, pools, and subpools. It also includes the 
transactions, application programs, data bases, and various Operating 
System/360 interfaces. Security maintenance is the means by which a 
user defines the terminal and password security characteristics of a 
defined IMS/360 system. 

IMS/360 SYSTEM STRUCTURING CONSIDERATIONS 

Before structuring the IMS/360 system, the user of IMS/360 must 
consider the requirements and capabilities of IMS/360 in relation to his 
own requirements for the most expeditious operating environment. 
Consideration must be given to such things as the amount of core and 
direct access storage to be dedicated to IMS/360, the number of 
application programs to be run, and how many of these programs are to be 
run concurrently. A determination must be made of the transaction codes 
which are going to initiate the various application message processing 
programs and how many of these types of transaction codes are necessary. 
The user must decide which transaction codes are to be of the response 
type and which of the nonresponse type. Decisions must be made 
concerning how many transaction codes cause data base updates, and how 
many are restricted to entry from a particular terminal. Consideration 
must also be given to how many lines and terminals there will be in the 
system (Items la, le, 4, 5, 7a, 7b, 7c(l), and 7f in the Systems 
Operation checklist) . /" 

In supplying answers to these questions, the user should consider the 
possible impact of his decisions on the operating capability of the 
system and the efficiency of its operation. 

IMS/360 allows the user to batch online transactions. The user would 
be wise to consider whether the types of codes he chooses can be queued 
up and can wait for processing on an as-required basis. Time accounting 
is an example of the type which may fall into this category. Attendance 
reporting is another. Transaction codes of these types can be readily 
batched, because there is no necessity for an immediate- type response. 

("Response- type" and "nonresponse- type" messages should not be 
confused with true "message types". See Chapter 5 of the Program 
Description Manual under "Message Formats and Structures".) 

Whenever he enters a response-type message, the user should always be 
aware that his terminal locks and he must wait for a response before he 
can enter another message from that terminal. The nonresponse- type 
message is entered and competes with other messages, on a priority 
basis, for system resources, but the terminal and communication line are 
always available for further message input until response. Note, too, 
that a design consideration was that response-type messages be 
single-line nonupdate messages. If incore buffer space is 
miscalculated, system efficiency can be reduced by allowing 
response-type messages to be multisegment messages. 

The limit count feature of IMS/360 allows consideration of the number 
of messages which a reusable application program can process in one load 
of the program, whether the messages are of the response type is of /^ 

vital concern. The limit Count feature, in conjunction with the limit V 
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priority, does not say that a program will never be processed if there 
are always higher priority messages. It does say that, if the 
particular message is not called for execution by the time a certain 
number of messages have been received and queued, the selection priority 
is changed to a higher one. If there are messages with higher selection 
priorities in the system, of course, this message may still have to 
wait. 

The total IMS/360 system must be considered by the user when 
structuring his system. The user must consider what the various types 
of transactions mean to the system, what the responses are, how many 
there are, etc. 

Again, the user must consider the number of programs he wishes to be 
operating concurrently, how large these programs are and how many 
transaction codes they are operating against* and how many terminals he 
will be using. These considerations affect the amount of core which is 
dedicated to IMS/360. Each application program, and the system, at any 
given time, may require additional amounts of space. Even the number of 
terminals concurrently being transmitted to has an effect upon the 
amount of core buffer space which should be allocated. 

For example, assume a message is entered from a terminal. The 
application program for processing this message may send messages to 
each of six different terminals; therefore, IMS/360 may require core 
buffer space for one line of the message output to each terminal. If 
the system is executing three application programs concurrently and 
trying to transmit to those six terminals, it will require allocation 
for 3 (number of application programs) times 6 (number of terminals) 
buffers in addition to the core required to hold the three application 
programs (in message processing regions). 

The I/O units on which a system user chooses to place his message 
queues have special significance on system operations. For example, the 
choice of disk or drum affects the number of messages run and 
consequently how many are processed. Since drum access is faster than 
disk, its use allows a greater number of messages to come in and go out 
of the system faster than when disk storage is used. Of course, there 
is more storage available on disk, but this is part of the tradeoff 
analysis to be made while structuring the system. 

Defining the IMS/360 System 

So far this discussion has centered on what the user wants the 
IMS/360 system to do. Now to be considered are what the system user is 
trying to do and how the IMS/360 system is tailored to his needs. This 
tailoring is done with the IMS/360 system definition macro-instructions. 

The IMS/360 requirements are described above. The modifications 
necessary to make IMS/360 compatible with Operating System/360 are 
accomplished through the use of three supervisor calls (SVC's), which 
must be made a part of Operating System/360. This is a simple matter 
for the system programmer to accomplish. 

The System/360 used for the IMS/360 two-stage definition process must 
be at least a Model 40, with the F-level assembler and at least 128K 
storage. The IMS/360 system definition must be run using the same 
version of Operating System/360 under which the generated system will 
execute. The three SVC's must be placed by the system user into 
(link-edited with) the Operating System nucleus of the system under 
which IMS/360 execution is to occur. The choice of cataloging IMS/360 
system data sets is the user's, but this normally simplifies system 
execution and control. 
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If Stage 1 was not properly defined. Stage 2 input can be corrected 
without the necessity for complete regeneration. A system programmer 
knowledgeable in IMS/360 control block structure can accomplish this 
function. 

IMS/360 System Definition Macro-Instructions '" " 

The input to Stage 1 of the IMS/360 system definition is a set of 
control cards which invoke macro- instruct ions. These macro-instructions 
tailor IMS/360 to a particular user's environment by creating the 
control blocks upon which the IMS/360 modules execute. Two types of 
system definition are possible: 

1. Complete online and Type 3 batch region system 

2. Type 3 processing (batch stand-alone) only 

Some IMS/360 system definition macro-instructions appear only once in 
the Stage 1 input stream, while others may be used multiple times in a 
hierarchical set arrangement to describe related user requirements. 
Figure 19 lists which macro-instructions are required and which may be 
used more than once. The end of this chapter provides examples of 
IMS/360 system definition. 



1 

2 

3 

H 

5 

6 

7 

8 

9 

10 

11 

12 

13 

1U 

15 

16 

17 

18 

19 



MACRO- 


TYPE OF DEFINITION 




INSTRUCTION 


COMPLETE 


BATCH TYPE 3 




SYSTEM 








IMSCTRL 


REQUIRED 


1 


REQUIRED 


1 


APPLCTN 


REQUIRED 


n 


N/A* 




DATABASE 


REQUIRED 


n 


N/A 




TRANSACT 


REQUIRED 


n 


N/A 




LINEGRP 


REQUIRED 


n 


N/A 




LINE 


REQUIRED 


n 


N/A 




TERMINAL 


REQUIRED 


n 


N/A 




NAME 


REQUIRED 


n 


N/A 




POOL 


OPTIONAL 


1 


N/A 




SUBPOOL 


OPTIONAL 


1 


N/A 




MASTTERM 


REQUIRED 


1 


N/A 




MSGQUEUE 


REQUIRED 


1 


N/A 




MACLIB 


OPTIONAL 


1 


OPTIONAL 


1 


RESLIB 


OPTIONAL 


1 


OPTIONAL 


1 


PGMLIB 


OPTIONAL 


1 


OPTIONAL 


1 


PSBLIB 


OPTIONAL 


1 


OPTIONAL 


1 


DBDLIB 


OPTIONAL 


1 


OPTIONAL 


1 


PROCLIB 


OPTIONAL 


1 


OPTIONAL 


1 


IMSGEN 


REQUIRED 


1 


REQUIRED 


1 



V 



L J 



* N/A - Not allowable 

Figure 19. Complete IMS/360 system definition macro- instruction 

Two groups of macro- instructions form hierarchical sets that are 
required for the description of user resources. One group (Figure 20) 
describes application programs and their related resources (transactions 
and data bases). The other (Figure 21) describes communications line 
groups, communication lines, and associated physical and logical 
terminals . 



/" 
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Note : All macro-instruction positional or keyword operand values that 
are names must start with an alphabetic character. 



MACRO- INSTRUCTION 


NUMBER PER SET 


PURPOSE 


APPLCTN 


1 


Names application 
program. Delimits 
this set of macro- 
instructions . 


DATABASE 


n 


Names data bases 
used by applica- 
tion program. 


TRANSACT 


n 


Names transaction 
codes which will 
be processed by 
the above 
application 
program. 



L : J 

Figure 20. Application description macro-instruction set 



MACRO-INSTRUCTION 


NUMBER PER SET 


PURPOSE | 


LINEGRP 


1 


Names collection | 
of terminals with j 
like attributes . j 
Delimits this set | 
of macro- j 
instructions . j 


LINE 


n 


Provides address j 
of line and | 
delimits terminals! 
on same line. j 


TERMINAL 


n 


Provides physical j 
terminal data and j 
delimits logical j 
terminal name. j 


NAME 


n 


Provides logical j 
terminal names. j 



y 



Figure 21. Terminal description macro- instruction set 

IMSCTRL Macro 

The IMSCTRL macro-instruction is used to describe the basic IMS/360 
control program options and the Operating System/360 environment under 
which IMS/360 will operate. The IMSCTRL macro- instruction is always 
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required. For Type 3 batch definition, the MAXIO, MSGBUFF, MAXREGN, and 
COMMSVC operands need not be specified. 

For Type 1 and 2 processing regions: 



IMSCTRL 



SYSTEM = 



/(mvt 

_\|MFT-II 



»all\J, 



MAXIO = number, 

MAXREGN = number, 

COMMSVC = (number 1 , number 2 ), 

OCENDA = appendage suffix, 
OSAMSVC = number, 
MSGBUFF = number, 
CKPT 



: /l000 , N0 \ 
I number YES J 



For Type 3 processing region: 



IMSCTRL 



SYSTEM = 



O MVT ) 
MFT-Ili 
PCP > 



batch) , 



OCENDA = appendage suffix, 
OSAMSVC = number - 



j 



Note : The only other macro- instructions needed for stand-alone batch 
are the xxxLIB macro- instruct ions. 

Operand field: 

SYSTEM= 

specifies whether IMS/360 operates in an Operating System/360 
environment with a variable number of tasks (MVT) or a fixed 
number of tasks (MFT-II) . The default value for this keyword is 
MVT. If PCP is specified,, all other operands of the IMSCTRL 
macro-instruction must be omitted except OCENDA and OSAMSVC. ALL 
means that IMS/360 teleprocessing and stand-alone Data Language/I 
batch systems are generated. BATCH means that only a stand-alone 
Data Language/I batch system is generated. 



MAXIO= 



specifies the maximum number of terminal I/O requests, message 
queue requests, and Data Language/I data base requests which may 
be in process in the IMS/360 control program region at any one 
time. A recommended minimum number is two times the value 
specified in the MAXREGN parameter plus the number of queue data 
sets specified. The value should never be less than the value 
specified in the MAXREGN parameter. If no value is specified, 
IMS/360 definition will provide an optimized value based upon 
peak system activity at 50% of possible requests in process at 
any one time. 



v. 
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MAXREGN= 



specifies the maximum number of regions or partitions which 
IMS/360 is expected to support at any one time. This value 
includes Type 2 batch regions as well as Type 1 message 
processing regions. Default value is 2. 



COMMSVC= 



specifies the numbers for the Operating System/360 Type 1 SVC's 
which IMS/360 uses for interregion communication. The first 
number is for calls to the IMS/360 control program from other 
regions; the second is for replies from the IMS/360 control 
program. Default values are 253 and 254. 



OCENDA= 



specifies the load module member name to be given the OSAM 
channel end appendage. This module is placed into the IMS/360 
load module library during IMS/360 system definition. The name 
of this module must start with IGG019. Two additional characters 
must be appended. These characters may range from WA to Z9. 
Only the. last two characters of the name should be specified in 
the macro operand. The default name is 0CENDA=Z9 (that is, 
IGG019Z9) . 



OSAMSVC= 



specifies the user SVC number to be given the OSAM Type 2 SVC. 
This SVC is used to construct and extend OSAM data extent blocks 
(DEB) in system queue space when using MVT. The default SVC 
number is 255. 



MSGBUFF= 



specifies the number of incore message buffers for multiple line 
messages,. See the section "IMS/360 Message Queues" in Chapter 3„ 
for a further definition. 



CKPT= 

specifies a threshold value for the number of log records 
written. Upon reaching the threshold, IMS/360 generates an 
internal request for a simple checkpoint. Default is 1000. 
Range is 500 to 32,767. The second parameter (NO or YES) defines 
whether or not logging of replaced data base records is to be 
performed. 

APPLCTN Macro 

The APPLCTN macro-instruction describes the program resource 
requirements for application programs which run under the control of the 
IMS/360 Type region,. When combined with one or more DATABASE and 
TRANSACT macro-instructions , the set defines the total scheduling and 
resource requirements for an application program. The APPLCTN 
macro-instruction describes only programs which operate in Type 1 
message processing regions or Type 2 batch processing regions. 
Application programs which operate in a Type 3 batch processing region 
are not to be described through the APPLCTN macro-instruction. 
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APPLCTN 



PSB = psbname. 



PGMTYPE 



"ft— 

\ (batch 



S [ ( ,OVLY]J 



■ J 



If a TP application program outputs messages which are input to 
another TP application program and the second program intends to modify 
a given data base, the first program must declare at least shared usage 
of the same data base for proper execution of the /DBRECOVERY command. 
This is performed with a DATABASE macro-instruction. 

7 



Operand field: 



PSB= 



specifies the logical name of the program specification block 
(PSB) as generated using the IMS/360 PSB generation utility. At 
execution time, the PSB must exist as a load module member of the 
partitioned data set named in the PSBLIB macro- instruction. The 
application program must also exist as a load module under the 
same member name in the partitioned data set named in the PROGLIB 
macro-instruction. 



PGMTYPE= 



TP identifies a message processing program which executes in a 
Type 1 region as a teleprocessing program. A BATCH program may 
utilize Data Language/I in the IMS/360 control region and may 
reference the message queues. If BATCH is coded, all TRANSACT 
macro-statements which follow will be assigned a normal and limit 
priority value of zero. The OVLY value indicates that the 
application uses overlay design. If OVLY is specified for 
application programs which do not use overlay design, it will 
result in unnecessary processing overhead. If OVLY is not 
specified when required, it will cause unnecessary core storage 
to be used in the message processing region and may eventually 
cause the message region control program to be abnormally 
terminated . 



DATABASE Macro 

The DATABASE macro-instruction defines all data bases to be used by 
the preceding APPLCTN macro- instruction. It is part of the set APPLCTN, 
DATABASE, and TRANSACT, which describe the total resource and scheduling 
requirements of each application known to IMS/360. The DATABASE 
macro-instruction may be omitted or used one or more times with each 
APPLCTN macro- instruction. 
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DBD = dbdname. 



INTENT = 



LOG= 



( YES ) 
\N0 / 



{ UPDATE ) 
SHARE J, 
exclusive) 






Operand field: 
DBD= 



specifies the logical name of the data base description (DBD) 
block as generated using the IMS/360 DBD generation utility. At 
execution time, the DBD must exist as a load module member in the 
partitioned data set named in the DBDLIB macro- instruction. The 
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V, 



116.2 



name of the DBD load module and the DBD=dbdname must be 
identical. This operand is required. 



INTENT= 



specifies whether the application program named in the preceding 
APPLCTN macro-instruction intends to use the data base for 
read-only, update, or solely to the exclusion of all other 
applications which may use the same data base. SHARE specifies 
that the user intends read-only usage. 

WARNING ; If SHARE is specified, and the program specified in the 
APPLCTN macro- instruction attempts to perform a get hold, insert, 
replace, or delete operation against the data base, no checking 
is performed. The operation is performed, and the call is 
treated as valid. Regardless of the processing option specified 
at PSBGEN time, the application program will be scheduled for 
execution in a processing region. If an application program 
performs update operations against a data base toward which SHARE 
intent is declared, the integrity of that data base may be 
destroyed. In addition, physical coding and pointers contained 
in the data base records may be so damaged that the entire data 
base can no longer be accessed using Data Language/I . 

UPDATE specifies that the program intends to perform insert, 
delete, or replace functions against the data base and ensures 
that no other prog ram which intends to U PDATE is scheduled for 
execution at the same time. EXCLUSIVE specifies that the program 
must be scheduled to the exclusion of all other programs which 
use the same data base, regardless of intent. The default value 
is UPDATE. 



LOG= 



If LOG=YES is specified on any DATABASE card for a particular 
data base, all modifications by any application program are 
logged. The logging of all segments added, deleted, or replaced 
in the data base allows data base "backout" during emergency 
restart. The user is cautioned against specifying logging for a 
SHARE data base. SHARE logging results in unnecessary overhead 
in ordinary operations. 

TRANSACT Macro 

The TRANSACT macro-instruction may be used one or more times with 
each APPLCTN macro-instruction. It specifies the transaction codes 
which cause the application program named in the APPLCTN 
macro- instruct ion to be scheduled for execution in an IMS/360 Type 1 
message processing region. It also provides the IMS/360 control program 
with information which influences the application program scheduling 
algorithm. 



^ 
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TRANSACT 



CODE = transaction code, 

PRTY = (normal, limit, limit 
count ) , 



!(MULTSEG,Kl 
(SNGLSEGiu 



MSGTYPE = |( MULTSEG ,M NONRESPONSE )|, 
^SNGLSEGijRESPONSE) ( 



PROCLIM = (count, seconds); 



INQUIRY 



NO 
YES 






Operand field: 
CODE= 



specifies the transaction code. The transaction code may be one 
through eight characters in length. The first character of 
transaction codes and logical terminal names must be any of the 
29 characters (A through Z, $, #, and a) as defined by IBM 
System/ 3 60 Operating System; Assembler Language (GC28-6514) . 
Transaction codes and NAME macro- instructions must comprise a set 
of values, each of which is unique in the system. That is, 
transaction codes and logical terminal names collectively may not 
contain duplicates. The CODE operand is required. 



PRTY= 



specifies the priority levels at which this transaction code 
contends for scheduling selection with other transaction codes 
being processed by the system. The normal and limit values may 
range from through 14 and are coded as one or two numeric 
digits- The limit count value may range from 1 through 65535. 
The normal field is the priority assigned to this transaction 
when the number of input transactions enqueued and waiting to be 
processed is less than the value specified in the limit count 
field. The limit priority field is the priority to which this 
transaction code is raised when the enqueued count of waiting 
input messages is equal to or exceeds the value specified in the 
limit count field. Once the priority of this transaction has 
been raised to the limit priority, it is not reduced to the 
normal priority until all enqueued messages for this transaction 
code have been processed by the program specified in the 
preceding APPLCTN macro-instruction, that is, the input queue is 
empty. If the limit priority feature is not desired for this 
transaction, code the normal and limit values equal and the limit 
count value zero. Default values for normal, limit, and limit 
count are 1,1, and 65535. 



MSGTYPE= 



specifies the time at which an incoming message is considered 
complete and available to be routed to an application program for 
subsequent processing. MULTSEG means that the incoming message 
is more than one line in length and is not to become eligible for 
scheduling to an application program until the terminal operator 
depresses the EOT key. SNGLSEG specifies that the incoming 
message is always only one line in length and becomes eligible 
for scheduling when the terminal operator depresses the EOB key 
(carriage return if the Auto EOB feature is present),. 
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NONRESPONSE specifies that, upon completion of the input message, 
single or multiple segment, the terminal is to accept further 
input without waiting for the completed input message to be 



118.1 



118.2 



processed. RESPONSE specifies that, upon completion of the input 
message, single or multiple segment, the terminal and 
communication line to which it is attached are to accept no 
further input until the program specified in the APPLCTN 
macro- instruction has been scheduled, has processed the input 
message, and has sent an output message to the input terminal. 
Default value is (MULTSEG, NONRESPONSE) . 

PROCLIM= 

specifies the maximum processing time per message and the maximum 
number of messages to be processed per application program load 
in a Type 1 IMS/360 message processing region. The seconds field 
specifies a numeric value in seconds, which may range from 1 
through 65535 and represents the maximum CPU time allowed for 
each message to be processed in the message processing region. 
The count field specifies the maximum number of messages which 
are provided to the application program by the IMS/360 control 
program for processing without reloading the application program. 
The count field value may range from 1 through 65534. Code the 
count field value at 65535 if no limit is to be placed upon the 
number of messages processed at a single program load. Default 
value for the PROCLIM operands is (65535, 65535) . 

The seconds value assigned is used for the purpose of application 
program erroneous looping control. No attempt need be made to 
optimize the seconds value for program-transaction execution 
time. However, the seconds time value assigned should not be 
less than the expected per-transaction execution time. If the 
scheduled application program exceeds the product of seconds and 
count, the application program will be terminated abnormally. 

The count value assigned is used to determine how many messages 
an application program is allowed to process in a single 
scheduling cycle, that is, program load. When the application 
program has requested and received the number of messages 
indicated in the count value, it will receive a "no more 
messages" indicator upon any subsequent requests from the IMS/360 
control program. IMS/360 may, in fact, have other messages 
enqueued for the application program. Upon receiving the 
indication that no more messages are available, the message 
processing application program must terminate, thus making 
available the region it occupied for rescheduling. This feature 
enables IMS/360 to allow scheduling of higher priority 
transactions which may have entered the system while the previous 
transactions were in process. In addition, if any equal priority 
transactions are enqueued, they will become eligible for 
scheduling on a first- in, first-out (FIFO) basis. 

INQUIRY= 

Entered value is used by data base recovery and DBDUMP only'. 

If the INQUIRY operand is NO: ^ l / ' 

1. Data base recovery reprocesses al,l-messages entered against 
this transaction code. _.-""' 



2. No input is allowed ,a gainst this transaction code during 
DBDUMP. "" 

3, 

If the INQUIR¥"bperand is YES, IMS/360 assumes that this 
transaction code will not cause alterations to^data bases. 
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Therefore: 



1. Data^base recovery will not reprocess messages entered 
against tKis^Jtransaction code. 



iringj); 
>"de\ 



Dunn 
:o* 



iBDOMP^~~i-nput~is^a»lipwed against this transaction 



LINEGRP Macro 

The LINEGRP macro-instruction defines the beginning of a set of 
communication lines and physical terminal, logical terminal pool, 
logical terminal subpool, and logical terminal description 
macro-instructions which include LINE, TERMINAL, POOL, SUBPOOL, and 
NAME. These sets are used to describe the user's telecommunications 
system. The LINEGRP macro-instruction is used to begin a description of 
one or more lines of the same type, over which the same type of terminal 
will communicate. 



[name] 



LINEGRP 



DDNAME = name, 



FEAT = 



(STACTL, NONSWITCH) 
(TRANSCTL, SWITCHED J, 



!2740) 
1050) 
2260) 



L J 



Operand field: 



DDNAME= 



specifies the DD name that is used to allocate the communication 
line devices described in the following LINE and TERMINAL 
macro-instructions. This name is placed in the DD statements 
generated as a part of the execution procedure called IMSO, which 
is placed in the procedure library specified in the PROCLIB 
macro- instruction during Stage 2 of IMS/360 system definition. 
The operand is required. 



FEAT= 



specifies certain features that establish part of the 
characteristics used to determine which lines comprise a line 
group. The allowable combinations of values for this operand 
related to terminal unit type are shown in the following table. 
See also the LINE macro-instruction FEAT operand. 
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Exhibit HI 



OPERAND 
VALUES 


TERMINAL TYPE 


1050 


/////////// 


2260 


//////////// 


2740 


STACTL 
SWITCHED 


STACTL 
NONSWITCHED 


TRANS CTL 
SWITCHED 


STACTL 
NONSWITCHED 


AUTOANS 


OPTIONAL 


N/A 


OPTIONAL 


N/A 


AUTOPOLL 


N/A 


OPTIONAL 


N/A 


N/A 


POLL 


N/A 


OPTIONAL 


N/A 


OPTIONAL 



UNITYPE= 



specifies the unit number of the device as either an IBM 1050, 
2260, or 2740 communication terminal. All terminals in this 
LINEGRP must be the same. 



LINE Macro 

The LINE macro-instruction defines the beginning of a set of 
TERMINALS and NAME macro- instructions which describe the physical and 
logical terminals on a single communications line. This 
macro-instruction is used to describe both switched and nonswitched 
communication lines. If the line described has only one terminal 
attached, only one TERMINAL macro- instruction appears after the LINE 
macro-instruction. Multiple TERMINAL macro-instructions would appear if 
the description were for a multidrop line. Multiple NAME 
macro-instructions, each of which describes a logical terminal, may 
appear after each TERMINAL macro- instruction that follows a LINE 
macro-instruction. Each LINE macro- instruction must be followed by at 
least one TERMINAL macro- instruct ion. 



1 



[name] 



LINE 



FEAT = 



{AUTOANS ) 
AUTOPOLL> 
POLL J 



ADDR = hexnumber, 



l J 
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Operand field: 
ADDR= 



specifies the address of the communi cation line. The address 
value is three hexadecimal digits ranging from 000 through 6FF. 



FEAT= 

describes the features of the terminals which are attached to 
this line. See the table following the FEAT operand of the 
LINEGRP macro- instruction for restrictions. This operand is 
required. If the LINEGRP macro specifies SWITCHED, the only 
allowable FEAT operand is AUTOANS. If the LINEGRP macro 
specifies NONSWITCH, the only allowable FEAT operands are 
AOTOPOLL and POLL. There are no default options. 

TERMINAL Macro 

The TERMINAL macro-instruction describes a physical terminal which 
must be an input device and may, in addition, be an output device. This 
macro-instruction describes a physical terminal on a nonswitched line or 
the representation to BTAM of a physical terminal on a switched line. 
NAME macro- instructions which follow the TERMINAL macro-instruction 
supply the logical terminal name(s) associated with the physical 
terminal at system definition time. Within the definitions and 
restrictions of terminal security, the first NAME macro-instruction 
encountered following a TERMINAL macro- instruction becomes the response 
or input/output logical terminal. Each TERMINAL macro- instruction must 
be followed by at least one NAME macro-instruction. 



r - 






— T 


j [name] \ 


TERMINAL 


ADDR = terminal address 
character, 

[UNIT = 2848 unit address] 




L _ — 






J 


Operand field: 








ADDR= 









specifies the physical terminal addressing character in terminal 
code, hexadecimal representation. For example, physical terminal 
address "a" for a 2740 would be coded ADDR = E2. 



UNIT= 

is the 2848-unit address onto which the specified TERMINAL is 
attached. This operand is required when the UNITYPE operand on 
the preceding LINEGRP is 2260. The value range is 40 - A8. 

POOL Macro 

The POOL macro- instruction describes a pool of logical terminals 
which are to be associated with a set of switched communication lines. 
The IMS/360 user need have only one logical terminal pool for all 
autoanswer or communication lines. All POOL macro- instructions must 
follow after all LINE macro-instructions within a LINEGRP. See the 
section of this chapter titled "Teleprocessing Example" . 
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POOL 



FEAT = AUTOANS 



Operand field: 

FEAT= 

specifies the pool of logical terminals to be associated with 
those physical lines defined by the LINE macro-instructions with 
the equivalent FEAT operands. 

SUBPOOL Macro 

The SUBPOOL macro-instruction defines a set of logical terminals 
within a pool which may be associated with a given physical terminal on 
a switched communication line when the /IAM command is executed. One or 
more subpools may be defined within a POOL macro- instruction. At least 
one must be defined for each POOL macro-instruction. 



I 






SUBPOOL 






Operand field: 

There are no operands for this macro. This macro-statement defines 
the beginning of a subpool set. 

NAME Macro 

The NAME macro- instruction defines the logical terminal name to be 
associated with the physical terminal described by a preceding TERMINAL 
or SUBPOOL macro-instruction. At least one NAME macro- instruction must 
follow each TERMINAL or SUBPOOL macro-instruction to establish a logical 
terminal name for the physical terminal or within the subpool. 

Only one NAME macro- instruction defining the inquiry logical terminal 
should follow a TERMINAL macro- instruction which describes the BTAM 
representation of a physical terminal associated with a switched 
communication line. Multiple NAME macro-instructions may follow a 
TERMINAL macro- instruction on a nonswitched communication line or a 
SUBPOOL macro-instruction where the subpool contains multiple logical 
terminals. 

All inquiry logical terminal names in a system generation must begin 
with the same first four characters. Only transactions described with 
the TRANSACT macro- instruction with the operand INQUIRY = YES may be 
entered through the inquiry logical terminal on a switched line,. No 
subpool logical terminal name may start with the first four characters 
used for inquiry logical terminal names. See section in Chapter 3 
titled "Logical Terminal Types in Switched Communications Network 
Environment" about transactions that can be input when a user signs on 
for an inquiry logical terminal. 



X 



— i 



NAME 



lterm name, 
COMPT= or 



L 



PTR1 



J 
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Operand field: 
lterm name 



defines a name for a logical terminal associated with the 
preceding TERMINAL or SUBPOOL macro- instruction. The value for 
this operand may be one to eight alphameric characters. The 
value assigned to this operand must be unique in the collective 
group that includes values assigned to the CODE operand of the 
TRANSACT macro- instruction. The operand is required. 



COMPT= 



specifies the particular device in a 1050 terminal complex to 
which the specified terminal is associated. The specified lterm 
is used to direct output messages to the terminal. Operand 
values are: 



£ or PTR1 = 1050 printer 1 



MSGQUEUE Macro 



The MSGQUEUE macro- instruction defines the input and output 
single-line message and multiple-line message data sets desired by the 
user. This macro- instruction is required. 



= (ddname, dsname, unit, serial) , 

= (ddname, dsname, unit, serial) ,] 

= (ddname, dsname, unit, serial) , 

= (ddname, dsname, unit, serial) , ] 

YES , lOO J 
NO n j 




Operand field: 



QCRIN= 



specifies the DD name, DS name, unit type, and volume serial of 
the direct access device upon which the input single-line message 
data set resides. The value for the unit must be 2311, 2314, 
2301,, or 2303. The data set itself is not required until 
execution time. The information from this macro-statement is 
combined with other information to produce a system execution 
procedure called IMS0, which is placed in the library named by 
the user in the PROCLIB macro-instruction. This operand is 
required. 



QCROUT= 



specifies the DD name, DS name, unit type, and volume serial of 
the direct access device upon which the output single-line 
message data set resides. The field values are subject to the 
same restrictions as the QCRIN operand. If separate data set 
control for input and output queue control records is not 
desired, omit this operand. All single-line messages are - 
maintained on the data set as defined in the QCRIN operand. This 
operand is optional. 



124 



MSGIN= 



specifies the DD name,, DS name, unit type, and volume serial of 
the direct access device upon which the input multiple-line 
message data set resides. The field values are subject to the 
same restrictions as the QCRIN operand. This operand is 
required. 



MSGOUT= 



specifies the DD name, DS name, unit type, and volume serial of 
the direct access device upon which the output multiple-line 
message data set resides. The field values are subject to the 
same restrictions as the QCRIN operand. If separate data set 
control for input and output message buffers is not desired, omit 
this operand. If this operand is present, all output message 
buffers are maintained on this data set. This operand is 
optional. 



REUSE= 

specifies, by the first operand, whether reusable queues are 
desired. The second operand specifies the number of queue 
records reserved for orderly shutdown of the system queues. When 
the number of remaining records on any queue data set is equal to 
or less than the entered value, a /CHECKPOINT DUMPQ command is 
automatically initiated by IMS/360. If reuse of queue is 
desired, previously used records will be reused when the number 
of remaining records reaches this point. However, if there are 
no records available for reuse, a /CHECKPOINT DUMPQ command will 
-be initiated. A system ABEND will "occur if the /CHECKPOINT DUMPQ 
command cannot be honored. (See /CHECKPOINT DUMPQ command.) The 
n value of the second operand has a default value of 100 records 
and a minimum value of 10 records. The maximum value is 36,863 
records; however, the entered value cannot be larger than the 
smallest queue data set (if the value is too large, an immediate 
/CHECKPOINT DUMPQ will be initiated when IMS/360 is started) . 

MASTTERM Macro 

The MASTTERM macro- instruction identifies the logical terminal that 
is the master terminal in the generated system. 

r 1 

II I I 
| | MASTTERM | logical name | 

III I 
I I I I 

L J 

Operand field: 

logical name 

is the logical name of an input terminal defined in a previous 
TERMINAL and NAME macro-instruction set. The master terminal 
cannot be attached through a switched communication line. 

The associated NAME macro- instruction must be the first NAME 

macro-instruction following the associated TERMINAL 

macro- instruct ion. There must be at least two NAME 

macro- instructions in the TERMINAL and NAME macro-instruction set 

defining the master terminal. 
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If the terminal referred to by the associated NAME macro-instruction 
is on a multidrop line, that is, there are other TERMINAL 
macro-instructions within the same line set, the referred-to TERMINAL 
macro-instruction must be the first TERMINAL macro- instruction following 
the associated LINE macro-instruction. 



s 



MACLIB Macro 

The MACLIB macro- instruction designates the library upon which 
macro-definitions (such as PSB and DBD macro-definitions) output from 
Stage 2 are placed. If the MACLIB macro- instruction is used, the 
partitioned data set named in the PDS operand must be allocated and 
cataloged by the user and must exist in the generating system. If the 
MACLIB statement, is omitted, no IMS/360 macro-definitions will be 
transferred from IMS.GENLIB to any user library, including those 
required to perform PSB and DBD generation. 



— i 



MACLIB 



j UNIT = 


name 


r 


J VOLNO = 


= serial. 




(iMS 


.MACLIB ! 


| PDS = 


1 


name I 


| COPY = 




j utility! 

(ALL j 
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Operand field: 



UNIT= 



specifies the unit name of the direct access device upon which 
the macro library PDS is to reside in the generated system. 
Mandatory entry value must be 2311 or 2314. 



VOLNO= 



specifies the serial number of the volume that is to contain 
IMS/360 macro-definitions in the generated system. Mandatory 
entry. 



PDS= 



is the name of the macro-definition library upon which the 
IMS/360 macro- definition will reside in the generated system, 
no PDS name is provided, Stage 2 assumes the PDS name to be 
IMS. MACLIB. 



If 



COPY= 



specifies which macro-definitions are to be transferred to the 
PDS specified in the PDS operand. If this operand is omitted, 
only those macro-definitions required to perform PSB and DBD 
generation are copied. If ALL is specified, all 
macro-definitions in IMS.GENLIB are copied. Direct access 
allocation space requirements may be found in this chapter under 
the topic "IMS/360 System Data Set Allocation". 
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RESLIB Macro 

The RESLIB statement defines the PDS in the generating and generated 
system upon which all IMS/360 load modules are placed during Stage 2. 
It must be a preallocated, cataloged data set in the generating system. 
It may be SYSl.LINKLIB. 



r 



RESLIB 



UNIT = name, 
VOLNO = serial, 



PDS = 



IMS. RESLIB 



name 



y 



L J 

Operand field: 

UNIT= 

specifies the unit name of the direct access device upon which 
the macro library PDS is to reside in the generated system. 
Mandatory entry value must be 2311 or 2314. 



VOLNO= 



specifies the serial number of the volume that is to contain 
IMS/360 macro-definitions in the generated system. Mandatory 
entry. 



PDS= 



specifies the DS name of the library in the generated system upon 
which the IMS/360 load module library is placed. If this operand 
is omitted, it is assumed that the PDS named IMS. RESLIB is 
cataloged and preallocated in the generated system. Direct 
access allocation space requirements may be found in this chapter 
under the topic "IMS/360 System Data Set Allocation". 



PGMLIB Macro 



The PGMLIB macro-instruction designates the library upon which all 
executable application programs reside. 



PGMLIB 



UNIT = name, 
VOLNO = serial, 

I IMS. PGMLIB | 



PDS = 



name I 



L £. J 

Operand field: 

UNIT= 

specifies the unit name of the direct access device upon which 
the application program library is to reside in the generated 
system. If this operand is omitted, the VOLNO operand must also 
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be omitted. System definition then assumes that the data set is 
cataloged on the generated system. 



f 



VOLNO= 



specifies the serial number of the volume that is to contain 
IMS/360 application programs in the generated system. If this 
operand is omitted, the UNIT operand must also be omitted. See 
UNIT operand above. 



PDS = 



is the name of the program library. If the PGMLIB statement is 
made and the PDS operand is omitted, the default name of the 
partitioned data set is IMS. PGMLIB. Direct access allocation 
space requirements may be found in this chapter under the topic 
"IMS/360 System Data Set Allocation". 



PSBLIB Macro 

The PSBLIB macro-instruction designates the library upon which the 
output from the IMS/360 PSB generation utility resides. 



PSBLIB 



UNIT = name, 
VOLNO = serial, 

i IMS. PSBLIB I 



PDS = 



name 






L J 

Operand field: 

UNIT= 

specifies the unit name of the direct access device upon which 
the PSB library is to reside in the generated system. 



VOLNO= 



PDS= 



specifies the serial number of the volume that is to contain the 
PSB library. 



is the name of the PSB library. If the PSBLIB statement is made 
and the PDS operand is omitted, the default name of the 
partitioned data set is IMS. PSBLIB. The library need not be 
allocated in the generated system. Direct access allocation 
space requirements may be found in this chapter under the topic 
"IMS/360 System Data Set Allocation". 



DBDLIB Macro 

The DBDLIB macro-instruction designates the library upon which output 
from the IMS/360 DBD generation utility resides. 
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DBDLIB 



UNIT = name, 
VOLNO = serial, 

I IMS. DBDLIB I 



PDS = 



name \ 



L J 

Operand field: 

UNIT= 

specifies the unit name of the direct access device upon which 
the DBD library is to reside in the generated system. 



VOLNO= 



specifies the serial number of the volume that is to contain the 
DBD library. 



PDS= 



is the name of the DBD library. If the DBDLIB statement is made 
and the PDS operand is omitted, the default name of the 
partitioned data set is IMS. DBDLIB. The library need not be 
allocated in the generated system. Direct access allocation 
space requirements may be found in this chapter under the topic 
"IMS/360 System Data Set Allocation". 
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PROCLIB Macro 

The PROCLIB macro- instruction designates the library upon which 
procedure output from Stage 2 is placed. If the PROCLIB 
macro-instruction is used, the PDS name specified must exist in the 
generated system. If the PROCLIB statement is omitted, no user 
procedures are generated. If the statement is included, and if all 
conditions stated in other generation macros which affect procedure 
generation are satisfied, the following procedures are generated. 



Name 
PSBGEN 

DBDGEN 

IMSO and IMS1 

IMS 

IMSMSG 

IMSBATCH 

DLIBATCH 

IMSCOBGO 

IMSPLIGO 



Procedure 

Generate (assemble) PSB and link to appropriate 
library 

Generate (assemble) DBD and link to DBDLIB library 

Execute IMS/360 online system 

DASD reader procedure to invoke IMSO procedure 

Execute Type 1 processing region 

Execute Type 2 processing region 

Execute stand-alone Type 3 processing region 

Execute COBOL compile and go Type 3 batch processing, 
link to PGMLIB 

Execute PL/I compile and go Type 3 processing, link 
to PGMLIB 
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IMSCOBOL 



Compile and link COBOL to PGMLIB library 



IMSPLI 



Compile and link PL/I to PGMLIB library 



SECURITY 



Execute security maintenance program assemble, and 
link to RESLIB library 



DLITCBL 



Linkage editor input for COBOL compiler 



DLITPLI 



Linkage editor input for PL/I compiler 



r t 



PROCLIB 



UNIT = name, 
VOLNO = serial, 

i IMS. PROCLIB I 



PDS= 



name 






L . J 



Operand field: 



UNIT= 



specifies the unit name of the direct access device upon which 
the macro library PDS is to reside in the generated system. If 
this operand is omitted, the VOLNO operand must also be omitted. 
System definition then assumes that the data set is cataloged on 
the generated system. 



VOLNO= 



specifies the serial number of the volume that is to contain 
IMS/360 procedures in the generated system. If this operand is 
omitted, the UNIT operand must also be omitted. See UNIT operand 
above . 



PDS= 



is the name of the procedure library upon which the IMS/360 

procedures reside in the generated system. If no PDS name is 

provided. Stage 2 assumes the preallocated PDS name to be 

IMS. PROCLIB. Direct access allocation space requirements may be 

found in this chapter under the typic "IMS/360 System Data Set 

Allocation". 



IMSGEN Macro 

The IMSGEN macro-instruction is used to specify the data sets, 
volumes, and I/O devices required for the definition process, the system 
definition output options. 

The IMSGEN macro-instruction must be the last macro- instruction in 
the Stage 1 input stream. It must be followed immediately by an 
assembler END statement. 
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r 



IMSGEN 



UT1SDS = dsname, 
[OFF 



ASMPRT = 



ON 



[LEPRT = (value 1 , value 2 )] 

L J 

Operand field: 

UT1SDS= 

specifies the name of the utility data set to be used during 
Stage 2 of system definition by the assembler and linkage editor, 

ASMPRT= 

specifies whether assembly listings are to be procured for the 
modules assembled during system definition. ON specifies that 
assembly listings are to be generated; OFF, that assembly 
listings are not to be generated. 

LEPRT= value 

specifies linkage editor print options as one or two of the 
following values. 



Value 
LIST 

MAP 
XREF 



Print Option 

List of control statements in card-image 
format 

Module map 

Cross-reference table (XREF includes the MAP 
option) 



If this parameter is omitted, only linkage editor error messages, 
if any, are printed. For a more detailed description of these 
options, see the publication IBM System/360 Operating System ; 
Linkage Editor (C28-6538). 

IMSTEST Macro 

This IMSTEST macro-instruction is designed to provide a means of 
generating an alternate IMS/360 nucleus. This macro-instruction alters 
the Stage 2 job stream of system definition to provide only those job 
steps necessary to create the system control blocks, a composite system 
control block module, and the composite system nucleus. A system 
definition must have already been performed, creating a standard nucleus 
(as previously described) , and the MACLIB specification of that standard 
generation must have included the COPY=ALL parameter. It is assumed 
that the same SVC numbers and the channel end appendage suffix specified 
in the standard system definition are also specif ied when generating an 
alternate IMS/360 nucleus using the IMSTEST macro. (While no check is 
made to verify that they are the same, execution of the alternate 
nucleus would be impossible if they were not.) It is also assumed that 
DFSILNKO is in SYS1.LINKLIB (if not, a JOBLIB must be added to the Stage 
2 job stream) . 
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Note: Since the basic purpose of the alternate Stage 2 job stream is to 
provide the user an alternate composite system control block 
module (DFSIBLK) and an executable IMS/360 nucleus (DFSINUC) , the 
Stage 2 job stream will not affect those IMS/360 modules whose 
function is not altered by or part of the alternate nucleus. 
These modules are: 



s 



DFSIRCOO - region controller module 

DFSIPCOO - program controller module 

DFSIDLLO - Data Language/I block loader module 

DFSISWO - MVT interregion SVC routines 

DFSISVFO - MFT interregion SVC routines 

DFSIOCEO - OSAM channel end appendage module 

The above modules remain unaffected, to allow the alternate and the 
standard IMS/360 nuclei to operate with the same Operating System/360 
nucleus, if the same SVC numbers and OSAM channel end appendage suffix 
values were provided in both generations. 

To invoke the alternate IMS/360 system definition, the user includes 
an IMSTEST control card with the standard Stage 1 IMS/360 control cards. 
The IMSTEST control card must precede all other IMS/360 system 
definition control cards and supply three cataloged PDS names to be used 
during execution of the Stage 2 job. See the teleprocessing example at 
the end of this chapter. 

The user supplies a suffix code to be appended to the composite 
control block module (DFSIBLK) and the executable nucleus module 
(DFSINUC) member names when they are link edited into the specified 
RESLIB. A separate cataloged data set can be provided to retain the 
individual control block modules as they are assembled prior to 
constructing the composite control block module (DFSIBLK) . Since the 
individual modules are needed only during the system definition phase, 
this data set can be scratched after DFSIBLK is created. Other 
cataloged PDS names are provided containing the IMS/360 macros and the 
IMS/360 load modules. 
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IMSTEST 



| GLIB 


= 


IMS.MACLIB, 


| LLIB 


= 


IMS. RESLIB,, 


| BLIB 


= 


IMS. RESLIB, 


| CODE 


= 


X 



Operand field: 
GLIB = 



specifies the cataloged PDS to be used as SYSLIB by the assembler 
steps of Stage 2 and must contain the IMS/360 macros necessary to 
compile the control blocks. The default value is IMS.MACLIB. 



LLIB = 



specifies the cataloged PDS containing the executable IMS/360 
load modules. The modules in this PDS should correspond to the 
modules moved to the specified RESLIB by Step 1 of the standard 
IMS/360 system definition. The default value is IMS. RESLIB. 



BLIB = 



specifies the cataloged PDS into which the individual system 
control blocks assembled by Stage 2 will be placed. All 
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assembled system control blocks will be placed in this data set 
except DFSIBLK and DFSINUC. This may be a temporary data set 
existing only for the duration of the Stage 2 job. The default 
value is IMS.RESLIB. Note, however, that if the default value is 
used for this operand, the control block modules will replace 
those created by the standard IMS/360 system definition. 

CODE = 

specifies a one-character suffix to be appended to the load 
module member names DFSIBLK and DFSINUC upon placing them into 
the specified RESLIB. The default value is X. Note that the 
suffix should not be or the original IMS/360 nucleus will be 
destroyed. 

Maximum System Definition Macro- Instruction Occurrences 

The IMS/360 system produced by IMS/360 system definition has defined 
limitations on the number of each system resource type. The maximum 
number of any resource type is controlled by the maximum number of 
occurrences of macro-instructions in each system definition. The 
following table provides a definition of the resource limits: 



Macro - 


Maximum Occurrences 


Instruction 


of Macro-Instruction 


IMSCTRL 


1 


APPLCTN 


254 


DATABASE 


254 


TRANSACT 


509 


LINEGRP 


255 


LINE 


253-A 


TERMINAL 


254-B 


NAME 


509 


POOL 


254-C 


SUBPOOL 


254-D 


MASTTERM 


1 


MSGQUEUE 


1 


MACLIB 


1 


RESLIB 


1 


PGMLIB 


1 


PSBLIB 


1 


DBDLIB 


1 


PROCLIB 


1 


IMSGEN 


1 



L J 



where : 



A is the number of MAXREGN defined in the IMSCTRL macro-instruction 
plus the number of occurrences of the POOL macro- instruction. 

B is the number of occurrences of the SUBPOOL macro- instruction. 



C is the number of MAXREGN defined in the IMSCTRL macro-instruction 
plus the number of occurrences of the LINE macro-instruction. 

D is the number of occurrences of the TERMINAL macro-instruction. 
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System Definition Job Control Language Statements 

The Job Control Language (JCL) for Stage 1 of system definition is 
for an assembly execution. Use the standard Operating System/360 
Assembler procedure (ASMFC) with the following SYSLIB DD card override. 
The user generates a card deck of the following format and places these 
cards in the job stream. 

// JOB 

// EXEC ASMFC 

//ASM. SYSLIB DD DSNAME=IMS. GENLIB, DISP=OLD 

//ASM.SYSIN DD * 

{IMS/360 Stage 1 - ) 
INPUT CONTROL CARDS - } 
SYSTEM DEFINITION PROGRAM) 

/* 

The resulting output deck completes Stage 1 . The JCL for Stage 2 is 
only a JOB card supplied by the user generating the system and placed in 
front of the punched card deck received from Stage 1. Place this deck 
of cards in the job stream. 

Examples of system definition are shown at the end of this chapter. 

IMS/360 System Data Sets 

The various partitioned data sets used by IMS/360 for libraries must 
be defined and allocated by the user. The DCB characteristics for these 
data sets should be specified at time of allocation. In all cases, 
these DCB characteristics should be equated to existing Operating 
System/360 partitioned data sets. This can be done with a DCB= operand 
of the DD card used for allocation. The following lists the 
IMS/3 60-Operating System/360 data sets which would have equivalent DCB 
characteristics : 

IMS/360 Operating System/360 

IMS.RESLIB SYS1.LINKLIB 

IMS.PGMLIB SYS1.LINKLIB 

IMS.PROCLIB SYS1.PR0CLIB 

IMS.MACLIB SYS1.MACLIB 

IMS.PSBLIB SYS1.LINKLIB 

IMS.DBDLIB SYS1.LINKLIB 

It is suggested that the Operating System/360 utility program 
IEHPROGM be used to allocate and catalog these IMS/360 system data sets. 

To summarize, the different libraries made available or modified by 
the user or by the system definition program are as follows: 
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Complete System 
Definition 

IMS.RESLIB 

IMS . MACLIB 

IMS.PSBLIB 

IMS . PGMLIB 

IMS.PROCLIB 

IMS.DBDLIB 

SYS1.SVCLIB (OSAM channel end 

appendage) 
SYS1.LINKLIB (Link pack modules) 
IMS. MESSAGE QUEUE DATA SETS 
SYS1. NUCLEUS (Type 1 and 2 SVC's) 



Type 3 Batch 
System Definition 

IMS.RESLIB 
IMS. MACLIB 
IMS.PSBLIB 
IMS. PGMLIB 
IMS.PROCLIB 
IMS.DBDLIB 
SYS1 . SVCLIB 

SYSl.LINKLIB 



SYS1. NUCLEUS (Type 2 SVC) 



IMS/360 System Data Set Allocation 

Space allocation for IMS/360 MACRO, PSB, DBD, PROGRAM, PROCEDURE, and 
RESLIB libraries is dependent upon user requirements. Space 
requirements for user libraries of programs, program specification 
blocks, and data base definition blocks will depend entirely upon the 
user's operating environment. Some examples may be useful: 

• DBD Library - Each DBD (one per data base) requires approximately 
1500 to 2500 bytes of direct access storage. Exact requirements 
depend upon the number of data set groups, segments, fields, and 
hierarchical levels. 

• PSB Library - Each PSB (one per program) requires approximately 250 
to 500 bytes of direct access storage. Exact requirements depend 
upon the number of data bases used in PSB and the number of 
sensitive segments. 

• PROCLIB Library - About 10 tracks (2314) of space are required. 

• RESLIB Library - About 20 cylinders of 2314 space are required. 

• MACLIB Library - About 10 cylinders of 2314 space are required for 
ALL macro-instructions. About one cylinder is required for PSBGEN 
and DBDGEN macro-instructions only. 

• PGMLIB Library - This contains application programs. 

System Definition Guide 

Execution of the system definition utility is shown in the general 
flowchart form following. It provides for both Stage 1 and Stage 2 of 
system definition and all the other requirements to make IMS/360 
operative . 
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*************** 

* * 

* START SYS D£F .* 

* * 
... *************** 



Start system definition. 



********************* 
* * 

* 
******* ******** 



CARD CECK OF 
* CTRL CARDS 



************** * 
*G£N ER A TNG-SYS|* 

J "PERFORM" t 
*.■ DATA SET r- 

* ALLOCATION, *. 

* *.*■* 4 ***** ** * * * 



*************** 

* * 

* SYSTEM * 
* DEFINITION * 

* STAGE 1 * 

* * 
*************** 



Stage 1 system definition is a deck 
of control cards prepared from the 
macro-instructions of system 
definition shown earlier in this 
chapter . 



The computer system used to execute 
Stage 1 and Stage 2 of system 
definition need not be the actual 
IMS/360 computer system. However, 
the version of Operating System/360 
used for Stage 2 must be the same 
version under which the defined 
system will be executed- If it is 
not the same system, perform data 
set allocation for IMS.GENLIB and 
IMS. LOAD, and specify the data set 
in the OBJPDS of the operand of the 
IMSGEN macro. 



System definition Stage 1 requires 
an assembly run to compile the 
control statements. The assembly 
requires its SYSLIB DD statement to 
point to the IMS/360 system 
definition macro data set 
IMS.GENLIB. 



Go to next page 
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***** **************** 
* * 

PUNCHED CARD 
* DECK * 

*****5fr********4 



*$*£***,**;* **.*** 

* * 

* SYSTEM * 
* DEEINdTIGN * 

* STAGE 2 * 

* * 

*««^X<**j******3i(* 



* END OF SYS * 
*D£F; CREATED * 

* AS MAX - * 

* IMSNUC £ 3 * 

* LIBS * 
**#*****#$$**«* 



V 

* ■ * TP 

* * 

* *YES *** 

$ :$ ^c $ 

* A TP ONLINE *> * 
* SYSTEM ? * * * 

* * *** 

* * 

* * *** 

* NO * * 

>.* * 

* * 
*** 
NQTP 



System definition Stage 2 takes as 
input a punched deck of cards 
created as output from Stage 1. 



Perform Stage 2 of system 
definition. 



When Stage 2 is complete, system 
definition creates an IMS/360 
nucleus and three libraries (as 
maximum output), IMS.RESLIB, 
IMS.MACLIB, and IMS.PROCLIB, on the 
preallocated data sets specified on 
the generating system. 



Is the IMS/360 system that was first 
generated a teleprocessing (online) 
system? If Yes, go to label TP. If 
No, go to label NOTP. 
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Label TP: If the system being 
generated is to process Type 1 
and/or Type 2 processing programs, 
the message queue data sets must be 
allocated on the computer system 
under which IMS/360 is to operate. 



TP 

*************** 

* PERFORM 0/S * 

* DATA SET * 

* ALLOC CMSG * 

* QUE £ * 

* LIBRARIES) * 
*************** 



I4GTP V 
*************** 

* * 

* PERFORM PS8 * 
*£OBD CATA SET* 

* ALLOCATION * 

* * 
*************** 



V 
*************** 

* * 

*MOVE DFSILNKO* 

* * 

* * 
*************** 



*************** 

* * 

* HOVE OSAM * 

* CHANNEL END * 
*APPENDA£E TO * 

* SYS1.SVCLIB * 

*************** 



V 
* * 

* * 



TP ONLINE 
SYSTEM ? 

* * 
* * 
* YES 



OSAM-SVC 

*N0 *** 

* * * 
*> * 

* * * 
* *** 



Label NOTP: Perform PSB and DBD 
data set allocation, whether 
generated system is a Type 1 and 2, 
or a Type 3 processing region 
system. 



Move DFSILNKO from IMS.RESLIB to 
SYSl.LINKLIB. 



r 



System definition creates OSAM 
channel end appendage and places 
this in IMS.RESLIB. OSAM channel 
end appendage must be moved to 
SYS1.SVCLIB (described later in this 
manual) . 



Again, is this an online 
(teleprocessing) system? 
to label OSAM-SVC,. 



If No, go 



Go to next page 
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*************** 



LINK EDIT 
SVC'S TC 
05/360 
NUCLEUS 



* *** * * ** ,****,* * * 



USAM- 


-SVC USER-APPL 




*************** 




* * *** 




* LINK EDIT * * * 




* OSAM SVC TO * > * 




* CS/360 * * * 




* NUCLEUS * *** 



*************** 



J 

V 
SEC-MA INT * * USER-APPL 

* * 

* *NG *** 

* SECURITY ■* * * 
* MAINTENANCE *> * 

* REQ'D? * * * 

* * *** 

* * 
* * 

* YES 



********************* 

* * 

CARC DECK OF 
* CTRL CARDS * 

*************** 



The three user SVC load modules 
created in Stage 2 of system 
definition must be link-edited into 
the OS/360 nucleus prior to 
attempting to execute IMS/360. 



Label OSAM-SVC: The OSAM SVC is 
required for system definition. 
Link- edit OSAM SVC to the Operating 
System/360 nucleus. 



Label SEC-MAINT: For user's system, 
is the IMS/360 security maintenance 
program required? If either 
terminal or password security is 
required, the IMS/360 security 
maintenance program must be run. 



Set up control cards for input card 
deck to the security maintenance 
program. (See the description of 
control cards in Chapter 6 of this 
manual.) 
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* * 

*RUN SECURITY * 

* MAINTENANCE * 

* PROGRAM * 

* * 

*************** 



*************** 

* * 

♦OUTPUT OF SEC* 

* MAINT PGM - * 

* CHANGES * 

* IMSNUC * 
*************** 



*************** 
*NRESTART * 

♦INITIATE NEW * 

* SECURITY gGM* 

* * 
*************** 



USER-APPL V 

*************** 

* * 

* USER * 
* APPLICATION * 

* PGM FUNCTIONS * 

* * 
*************** 



Go to next page 



Execute the security maintenance 
program (SMP) . 



The output of SMP is added to the 
library specified in the RESLIB 
macro-instruction . 



The result of the SMP does not 
become effective until the next 
normal restart (cold start) . (See 
Chapter 5 of this manual for more 
details.) 



Label USER-APPL: The user must 
perform all the application 
programming functions; that is r load 
his application programs in the 
libraries and the names in the 
directories, etc. 



mo 



*************** 

* * 

♦CREATE £ LOAD* 

* PSB, DBD & * 

* OTHER SYS * 

* LIBRARIES * 
******** **_***** 



* * * * * *,* * * * * * * * * 



LOAD 
APPLICATION 
SYSTEM DATA 

EASES 



*********:** *>** * 



********* * ** * * * 

* * 

* READY FOR * 
* IMS/360 * 

* EXECUII.CN * 

♦ * 
*************** 



The PSB and DBD data sets must be 
loaded prior to executing IMS/360. 
Any other IMS/360-^oriented 
procedures or data sets desired can 
also be loaded at this time. 



The application system data bases 
must be loaded before execution of 
IMS/360 can proceed. 



Execute IMS/360 (IPL) per 
instructions in Chapter 5 of the 
IMS/360 Operations Manual , Volume II 
- Machine Operations . 



IMS/360 Supervisor Call Routines 

The IMS/360 system utilizes three supervisor call (SVC), routines. 
Two of these are used for interregion communication; the third routine 
is used by OSAM to create its multivolume data extent block (DEB) . All 
three routines are required for the online IMS/360 system. Only the 
OSAM SVC routine is required for Type 3 region processing. IMS/360 
system definition creates these routines with user-defined SVC numbers. 
The IMS/360 user must link-edit these routines with the Operating 
System/360 nucleus. The next section of this chapter explains how to 
perform the link edit (Items 17 and 19 on the Systems Operation 
checklist) . 

Inclusion of IMS/360 SVC Routines in Operating System/360 Nucleus 

Three user SVC routines must be added to the Operating System/360 
nucleus for execution of the IMS/360 system. Only one of these routines 
is required if Type 3 region execution is used exclusively . The SVC 
routines are created by IMS/360 system definition from 
macro-instructions. The SVC numbers utilized may be specified by the 
IMS/360 system user. The load modules which represent the SVC routines 
are placed in IMS.RESLIB by system definition. The two SVC routines 
used for interregion (partition) communication are Type 1 SVC's,. The 
SVC routine used for OSAM is a Type 2 SVC. 
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When the IMS/360 user performs his Operating System/360 system 
generation, the appropriate accommodations must be made for the later 
incorporation of the SVC routines. The IMS/360 SVC routines need not 
and normally would not be incorporated at Operating System/360 system 
generation! They may, however, be incorporated at that time, if 
desired. The following SVCTABLE macro-instructions should be included 
in the Stage 1 input to Operating System/360 system generation no matter 
when the SVC routines are incorporated. 

SVCTABLE nnn-Tl-SO 
SVCTABLE nnn-Tl-SO 
SVCTABLE nnn-T2-SO 

If the actual SVC routines are not incorporated during Operating 
System/360 system generation, three "dummy" load modules should be 
placed in the RESMODS partitioned data set. This should be done prior 
to Stage 2 of Operating System/360 system generation. These modules are 
of the format: 

IGCXXX CSECT 
BR 14 
END 

where XXX is the unique SVC number. This effectively "no-ops" the SVC 
number. 

The alternate approach, which would cause inclusion of the actual SVC 
routines during Operating System/360 system generation, requires 
placement of the actual SVC modules into the partitioned data set 
referred to by the RESMODS macro- instruction. This would require 
IMS/360 system definition execution prior to Stage 2 of Operating 
System/360 system generation- The RESMODS control card could then refer 
to the IMS.RESLIB data set for the incorporation of the SVC routines. 

If the SVC routines are added after Operating System/360 system 
generation, the technique is to relink- edit the Operating System/360 
nucleus. Basically, this involves replacing the "dummy" SVC routines 
through the link-edit with the actual SVC routines. The best 
explanation for performing this link-edit is to: 

1. Start with JCL and control cards of link-edit step from Stage 2 
of OS/360 system generation. 

2. Provide an additional card for the IMS.RESLIB data set to access 
the SVC modules . 

3. Provide an additional DD card to reference the SYS1. NUCLEUS data 
set other than //SYSLMOD. 

4. Provide additional INCLUDE control cards for the three SVC 
routines from IMS.RESLIB immediately after the INSERT control 
cards of the original link-edit. 

5. Replace the INCLUDE cards from the original Operating System/360 
nucleus link-edit with one INCLUDE card for the old Operating 
System/360 nucleus (that is, the one without the SVC routines) . 

6. Provide a NAME card for the new Operating System/360 nucleus (for 
example, IEANUCOX) . 

It may be good practice to consider the output from the link-edit of 
the nucleus as another member in SYS1 . NUCLEUS (for example, IEANUC02). 
The OS/360 Operator's Manual (GC28-6540) explains how to IPL an 
alternate Operating System/360 nucleus. If everything executes 
properly, then IEANUC02 can be renamed IEANUC01. 
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OSAM Channel End Appendage 

OSAM requires a channel end appendage module created as a load module 
during execution of IMS/360 system definition. The module is 
distributed under the name DFSIOCEO and is renamed during system 
definition to the us er- specif ied IGG019XX. The created module is placed 
in IMS.RESLIB (Item 18 on the Systems Operation checklist). 

OSAM Appendage to SYS1.SVCLIB 

It is the user's responsibility to move the created OSAM appendage 
module from IMS.RESLIB to SYS1.SVCLIB. This should be done using the 
Operating System/360 IEHMOVE program. 

DFSILNKO to SYS1.LINKLIB 

Prior to using any of the generated assembler or compiler procedures, 
the user must move the module DFSILNKO from IMS.RESLIB to SYS1.LINKLIB. 
This module permits the use of SHR disposition on SYSLMOD data sets in 
the link steps of procedures. This module invokes the linkage editor 
under the alias name LINKED IT. 

System Definition Stage 1 Output Warnings 

The following machine listing is an output example from Stage 1 of 
IMS/360 system definition. This listing informs the IMS/360 system user 
of actions which must be performed prior to IMS/360 system execution. 

The following assumptions are made; 

• Z8 are the last two letters of the OSAM channel end appendage chosen 
by the system user. 

• 244 and 245 are the interregion SVC numbers chosen by the user. 

• 243 is the OSAM SVC number chosen by the user. 

• The PSBLIB card was omitted during Stage 1 of system definition. 

• The PROCLIB card indicated PDS name of ICS.PROCLIB. 

• The RESLIB card indicated PDS name of ICS.LOAD. 
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IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LOf. OBJECT CODE 



ADOR1 AD0R2 STMT SOURCE STATEMENT 



F01AUG68 12/09/68 



168'.+** WARNING ** 

1685 

1686 

1687 

1688 

1689 

1600 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

17C2 

1703 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 END 



ft************************************************** 

* 
IGG019Z8 MUST HE MUVtO TO SYS1.SVCL1I1 AND IGC243 
PUST BE LTNK EGllFU WITH m US/360 NUCLI-US FUR 
SUCCESSFUL IMS/360 SYSTEM EXECUTION. 

THE UN LINEITP) FUNCTIONS OF THL IMS/360 SYSTEM 
RECJIRE IGC244 AND IGC245 BE LINK EDITED WITH THt 
CS/360 NUCLEUS FUR SUCCESSFUL EXECUTIUN (IF THESE 
FEATURES. THE LOAD MEMBER NAME IS UFS ISVVC ANO IT 
WILL BE PLACED IN ICS.LOAO BY STAGE Il"DT 
IMS/360 SYSTEM GENERATION. 

DATABASE BACKOUT AND OUMP FUNCT1UNS UF IMS/360 
REQUIRE OFSIBCPO BE MOVED TO AN UNDEFINED P SB LIB AND 
RENAPED OFSIBDRO FOR SUCCESSFUL EXECUTION OF THESE 
FEATURES. 

STEP 28 OF STAGE II OF IMS/360 SYSTEM GENERATION 
REQUIRES SYS1.TELCMLIB UE A CATALOGED DATA SET ON 
THE GENERATING SYSTEM AND CONTAIN THE INDICATED LOAD 
MCCULES TO BE INCLUDED IN THE IMS/360 NUCLEUS. 

PROCEDURE 'IMS' MUST BE MOVED TU SYS1.PR0CLIB 
FUR SUCCESSFUL EXECUTION OF THIS PROCEDURE. STAGE II 
OF IMS/360 SYSTEM GENERATION PLACES ALL PROCEDURES 
IN ICS.PROCLIB. 

PROCEDURES MMSO' AND MMS1' MUST BE UPDATED 
TO INCLUOE DO CARDS FUR THE DATABASES SPECIFIED 
BEFORE THESE PROCEDURES CAN BE SUCCESSFULLY EXECUTED 

OFSILNKO AND CFSIRCOO SHOULD BE IN SYS1.LINKL IB 
FOR EFFICIENT IMS/360 SYSTEM OPERATION. 

SEE IMS/360 ANO OS/360 SYSTEM OPERATIUN MANUALS 
FOR MODULES TO BE PLACED IN LINK PACK AREA FOR 
EFFICIENT SYSTEM OPERATIUN. 

USER SHOULD UUTA1N A PUS DIRECTORY LISTING l> 
THt LIBRARIES CREATFC BY STAGE II OF IMS/360 SYSTEM 
GENERATION. 

STAGL II OF IMS/ 160 SYSTEM CfcNF.KATION WILL PLACE 
SYSTLM tLNTKOL BLOCKS IN ICS.LOAO* OFSIULKA ANO 
OFSINUCA WILL Bfc PLACED IN 1CS.L0AD. 



Underlines refer to text above. 



System Procedures 

If a PROCLIB macro-instruction is presented as is suggested in the 
Stage 1 input of IMS/360 system definition, certain procedures are 
created and placed in the library specified. These procedures are 
complete only to the extent of the information made available through 
the optional library macro- instruct ions. For example, if the user does 
not specify a name for the program specification block library, the 
default DSNAME value of IMS.PSBLIB is used in the generated procedure. 
This can mean that the created procedures are not executable in the 
IMS/360 operating environment. Other procedures have defaults as 
specified in the system definition macro- instruct ion. Created 
procedures should be examined carefully to determine whether the desired 
JCL has in fact been correctly specified. If an online IMS/360 system 
has been defined, particular attention should be devoted to the terminal 
device allocation created. At the end of Stage 1 definition, a table of 
unit addresses and of logical and physical terminals is printed. Before 
executing the defined system, the cross-reference table should be 
examined to ensure that the specifications provided in Stage 1 define 
the desired system. If all optional library macro- statements are 



1UU 



included as input to Stage 1 of IMS/360 system definition, the following 
procedures are created: 



Procedure Library 
Member Name 

PSBGEN 



DBDGEN 



Description 

A two-step assemble and link- edit 
procedure to produce program 
specification blocks 

A two-step assemble and link-edit 
procedure to produce data base 
definition blocks 



IMSCOBOL 



A two-step compile and link-edit 
procedure for IMS/360 applications 
written in COBOL 



IMSPLI 



A two-step compile and link-edit 
procedure for IMS/ 360 applications 
written in PL/I 



DLIBATCH 



IMSCOBGO 



A one-step execution procedure for 
stand-alone Data Language/I Type 3 
processing region 

A three-step compile, link-edit, and go 
procedure combining the procedures 
IMSCOBOL and DLIBATCH 



IMSPLIGO 



A three-step compile, link-edit, and go 
procedure combining the procedures 
IMSPLI and DLIBATCH 



IMS 



DASD reader procedure to read IMSO 
procedure into Operating System/360 job 
stream from direct access devices 



IMSO 



IMS1 



IMSMSG 



IMSBATCH 



SECURITY 



DLITCBL 



DLITPLI 



Execution of IMS/360 Type region, the 
IMS/360 online control program with 
complete JOB PROCEDURE LIBRARY 

Execution of IMS/360 Type region, the 
IMS/360 online control program with JCL 
from system input stream 

Execution of IMS/360 Type 1 region, a 
message processing region 

Execution of IMS/ 360 Type 2 region, an 
online batch region 

A three-step execution, assembly, and 
link-edit procedure for terminal and 
password security which invokes the 
security maintenance program 

A SYSIN member used by the link steps of 
procedures IMSCOBOL and IMSCOBGO 

A SYSIN member used by the link steps of 
IMSPLI and IMSPLIGO. Note that entry 
point IHESAPD is specified. This 
corresponds to the PARM value OPT=l in 
the corresponding compile procedures. 
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MFDBLOAD 



MFDBDUMP 



A Data Language/I batch Type 3 execution 
procedure used to load the sample 
problem data base. Input data for the 
data base procedure is contained in the 
MFDFSYSN member of the user's MACLIB 
when the COPY=ALL option is used in the 
MACLIB statement. This procedure is not 
included in the user's library unless 
COPY=ALL is used in the MACLIB 
statement . 



This is a procedure to dump the sample 
problem data base onto a SYSODT data 
set. This procedure is not included in 
the user's PROCLIB unless the COPY=ALL 
option is used in the MACLIB statement. 



Note that the generated procedures accommodate the user Type 1 
programming system, either MVT or MFT. Also, volume serial and unit 
appear if the specified library is not cataloged. Prior to using the 
generated assembler or compiler procedures, the user must move the 
module named DFSILNKO to SYS1.LINKLIB. This module permits use of SHR 
disposition on the SYSLMOD data sets used by the various procedures. 



Specific examples of the default procedures follow: 
MEMBER NAME PSBGEN 



// PROC 
//C EXEC 
//SYSLIB DD 
// 

//SYSGO 
// 

//SYSPRINT DD 
// 

//SYSDT1 
//SYSUT2 
//SYSUT3 
// 

//L EXEC 
// 

//SYSLIN 
// 

//SYSPRINT DD 
// 
| //SYSLMOD 
//SYSUT1 
// 



DD 
DD 



DD 
DD 
DD 



DD 
DD 



DD 
DD 



MBR=TEMPNAME 

PFM=IEUASM, PARM- * LOAD, NODECK • , REGION=92K 

DSNAME=IMS . MACLIB , DISP=SHR 

DSNAME=SYS1. MACLIB, DISP=SBR 

UNIT=SYSDA, DISP= ( , PASS ) , DCB= (BLKSIZE=UOO , 

RECFM=FB,LRECL=80) ,SPACE=(80, (100,100) ,RLSE) 

SYSODT=A, DCB= (LRECL=121 , RECFM=FBM , BLKSIZE=605 , 

SPACE=(121, (500, 500), RLSE,, ROUND) 

UNIT=SYSDA, DISP= ( , DELETE) ,SPACE= (1700, (100 , 50) ) 

UNIT=SYSDA,DISP= ( , DELETE) ,SPACE= (1700, (100 , 50) ) 

UNIT= (SYSDA,SEP= (SYSLIB, SYSUT1, SYSDT2) ) , 

SPACE= (1700 , (100 , 50 ) ) 

PGM=DFSILNKO,PARM= , XREF,LIST , ,COND=(0„LT,C) , 

REGION=100K 

DSNAME=* - C . SYSGO , DISP= ( OLD , DELETE ) 

DDNAME=SYSIN 

SYSOUT=A, DCB= ( LRECL=1 21 , RECFM=FBA„ BLKSI ZE=6 5 ) , 

SPACE=(121, (100„100)„RLSE) 

DSNAME=IMS . PSBLIB ( 6MBR) , DISP=SHR 

UNIT= (SYSDA, SEP= (SYSLMOD, SYSLIN) ) , 

DISP=(, DELETE) ,SPACE=(102U, (100,10) ,RLSE) 
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MEMBER NAME DBDGEN 



// 
//C 



PROC 
EXEC 



//SYSLIB 

// 

//SYSGO 

// 

//SYSPRINT 

// 

//SYSDT1 

//SYSUT2 

//SYSUT3 

// 

//L EXEC 

// 

//SYSLIN 

// 

//SYSPRINT 

// 

//SYSLMOD 

//SYSUTl 

// 



DD 
DD 
DD 

DD 

DD 
DD 
DD 



DD 
DD 
DD 

DD 
DD 



MBR=TEMPNAME 

PGM=IEDASM r PARM= * LOAD , NODECK • „ REGION=92K 

DSNAME=IMS . MACLIB , DISP=SHR 

DSNAME=SYS1 . MACLIB,, DISP=SHR 

UNIT=SYSDA, DISP= ( , PASS) , DCB= (BLKSIZE=1*00 , 

RECFM=FB f LRECL=80),SPACE=(80, (100 ,100) ,RLSE) 

SYSODT=A, DCB= (LRECL=121,RECFM=FBM, BLKSIZE=605 , 

SPACE=(121„ (500, 500), RLSE,, ROUND) 

UNIT=SYSDA r DISP=(, DELETE), SPACE=( 1700, (100, 50)) 

UNIT=SYSDA, DISP= ( , DELETE) , SPACE= (1700,(100,50)) 

UNIT= (SYSDA,SEP= (SYSLIB, SYSUT1 ,SYSUT2) ) , 

SPACE= (1700 , (100 , 50 ) ) 

PGM=DFSILNKO,PARM= , XREF,LIST f ,COND=(0,LT,C) , 

REGION=100K 

DSNAME=* . C - SYSGO , DISP= ( OLD , DELETE ) 

DDNAME=SYSIN 

SYSOUT=A, DCB= ( LRECL=1 21 , RECFM=FBA, BLKSI ZE=6 05 ) , 

SPACE=(121, (100, 100), RLSE) 

DSNAME=IMS . DBDLIB ( 6MBR) , DISP=SHR 

UNIT= (SYSDA,SEP= (SYSLMOD, SYSLIN) ) , 

DISP= ( r DELETE), SPACE=( 102 4, (100 ,10) , RLSE) 
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MEMBER NAME IMSCOBOL 

// PROC MBR=,PAGES=60 

//C EXEC PGM=IEQCBL00,PARM= , SIZE=110000,LINECNT=50',REGION=126K 

//SYSLIN DD DSNAME=£SLIN,DISP= (MOD, PASS), UNIT=SYSDA, X 

// DCB=(LRECL=80,RECFM=FB,BLKSIZE=400) , X 

// SPACE=(CYL, (4,1), RLSE) 

//SYSPRINT DD SYSOUT=A, DCB= (RECFM=FBA,LRECL=121, BLKSIZE=605) , X 

// SPACE=(605, (6PAGES.0,SPAGES), RLSE,, ROUND) 

//SYSUT1 DD UNIT=S YSDA,DISP=( NEW, DELETE ) , SPACE= (CYL, (10 r l) ,RLSE) 

//SYSUT2 DD UNIT=SYSDA # DISP= (NEW, DELETE), SPACE= (CYL, (10,1) , RLSE) 

//SYSUT3 DD UNIT=SYSDA f DISP= (NEW, DELETE), SPACE=( CYL, (10,1) ,RLSE) 

//SYSUT4 DD UNIT=SYSDA, DISP=(NEW, DELETE), SPACE=(CYL, (10,1) ,RLSE) 

//L EXEC PGM=DFSILNK0, REGION=100K,PARM=*XREF, LIST, LET* , X 

// COND=(4,LT,C) 

//SYSLIB DD DSNAME=SYSl.COBLIB,DISP=SHR 

// DD DSNAME=SYS1.PL1LIB # DISP=SHR 

//SYSOBJ DD DSNAME=IMS.RESLIB,DISP=SHR NOTE 

//SYSLIN DD DSNAME= 6 SLIN,DISP=( OLD, DELETE) 

// DD DSNAME=IMS.PROCLIB(DLITCBL),DISP=SHR 

// DD DDNAME=SYSIN 

//SYSLMOD DD DSNAME=IMS.PGMLIB( 6MBR) , DISP=SHR 

//SYSPRINT DD SYSOUT=A,DCB= (RECFM=FBA, LRECL=121, BLKSIZE=605) , X 

// SPACE=(605, (£PAGES.0,gPAGES) ,RLSE, , ROUND) 

//SYSUT1 DD UNIT=SYSDA,DISP=(NEW, DELETE), SPACE=(CYL, (10,1) ,RLSE) 

Assumes : 

1. User supplies source data from SYSIN. 

2. Output is Class A. 

3. MBR=NAME, when name is load module name for program. 

4. SYSDA is generic device name. 

5. RESLIB is cataloged. 



ME MBER NAME IMSPLI 

// PROC MBR=,PAGES=50 

//C EXEC PGM=IEMAA,PARM= , XREF,ATR,LOAD,NODECK,NOMACRO,OPT=l f , X 

// REGION=llUK 

//S YSUT1 DD UNIT=S YSDA , SP ACE= ( 1 2 4 , ( 6 , 6 ) , RLSE , , ROUND ) , X 

// DCB=BLKSIZE=1024,DISP= (NEW, PASS) 

//SYSUT3 DD UNIT=SYSDA,SPACE=(1024, (60, 60) , RLSE, , ROUND) , X 

// DCB=BLKSIZE=1024,DISP=(NEW,PASS) 

//SYSPRINT DD SYSOUT=A,DCB= (LRECL=125,BLKSIZE=629 ,RECFM=VBA) , X 

// SPACE=(605, UPAGES.0,gPAGES) ,RLSE) 

//SYSLIN DD UNIT=SYSDA,SPACE=(80, (250 , 80) , RLSE) , X 

// DCB=BLKSIZE=80,DISP= (NEW, PASS) 

//L EXEC PGM=DFSILNK0, PARM= f XREF, LIST, LET', COND= (4, LT, C) ,X 

// REGION=100K 

//SYSLIB DD DSNAME=SYS1.PL1LIB,DISP=SHR 

// DD DSNAME=SYSl.COBLIB,DISP=SHR 

//SYSLIN DD DSNAME=*.C. SYSLIN, DISP= (OLD, DELETE) 

// DD DSNAME=IMS.PROCLIB(DLITPLI),DISP=SHR 

// DD DDNAME= SYSIN 

//SYSLMOD DD DSNAME=IMS.PGMLIB(gMBR) ,DISP=SHR 

//SYSPRINT DD SYSOUT=A,DCB= (LRECL=121,BLKSIZE=605,RECFM=FBA) , X 

// SPACE=(605, (&PAGES.0,gPAGES) ,RLSE) 

//SYSOBJ DD DSNAME=IMS. RESLIB, DISP=SHR 

//SYSUT1 DD UNIT=SYSDA,DISP=( NEW, DELETE), X 

// SPACE=(CYL, (5,1), RLSE) 

Same assumptions as IMSCOBOL 
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MEMBER NAME DLIBATCH 

// PROC PSB=TEMPNAME 

//G EXEC PGM=DFSIRC00,PARM=?3,gPSB\,REGION=120K 

//IMS DD DSNAME=IMS.PSBLIB,DISP=SHR 

// DD DSNAME=IMS.DBDLIB,DlSP=SHR 

//SYSUDUMP DD SYSOUT=A, SPACE= (605, (500, 500) ,RLSE, , ROUND) , X 

// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605) 

Assume that user must append DD cards for data sets representing Data 
Language/I data bases. 

MEMBER NAME IMSCOBGO 

// PROC MBR=,PAGES=60 

//C EXEC PGM=IEQCBL00, X 

// PARM- , LINECNT=50,,SIZE=110000 , ,REGION=126K 

//SYSIN DD DSNAME= ggLIN,DISP= (MOD, PASS ),UNIT=SYSDA, X 

// DCB=(LRECL=80,RECFM=FB,BLKSIZE=400), X 

// SPACE= ( CYL, (4,1), RLSE ) 

//SYSPRINT DD SYSOUT=A,DCB= (LRECL=121,RECFM=FBA,BLKSIZE=605) , X 

// SPACE=(605,, (gPAGES.0, gPAGES) ,RLSE, , ROUND) 

//SYSUT1 DD UNIT-SYSDA, DISP= (NEW, DELETE), SPACE= (CYL,, (10,1), RLSE) 

//SYSUT2 DD UNIT=SYSDA, DISP= (NEW, DELETE) , SPACE= (CYL,, (10 , 1) ,RLSE) 

//SYSUT3 DD UNIT=SYSDA, DISP= (NEW, DELETE) , SPACE= (CYL,, ( 10„ 1) ,RLSE) 

//SYSUT4 DD UNIT=SYSDA, DISP= (NEW, DELETE) , SPACE= (CYL, ( 10 ,1) ,RLSE) 

//L EXEC PGM=DFSILNK0, REGION=100K,PARM=*XREF, LIST, LET* , X 

// COND=(4,LT,C) 

//SYSLIB DD DSNAME=SYSl,COBLIB,DISP=SHR 

// DD DSNAME=SYS1.PL1LIB„DISP=SHR 

//SYSOBJ DD DSNAME=IMS.RESLIB,DISP=SHR NOTE 1 

//SYSLIN DD DSNAME=ggLIN,DISP= (OLD, DELETE) 

// DD DSNAME=IMS . PROCLI B ( DLITCBL) „ DISP=SHR 

// DD DSNAME=SYSIN 

//SYSLMOD DD DSNAME=IMS . PGMLIB ( 6MBR) , DISP=SHR 

//SYSPRINT DD SYSOUT=A, DCB= (LRECL=121,RECFM=FBA,BLKSIZE=605) , X 

// SPACE=(605, SP AGES. 0, RLSE, , ROUND) 

//SYSUT1 DD UNIT=SYSDA, DISP= (NEW, DELETE) , SPACE= (CYL, (10 ,1) ,RLSE) 

//G EXEC PGM=DFSIRC00 , PARM= * 3 , gMBR' , REGION=150K , TIME=2 , X 

// COND=(0,LT) 

//IMS DD DSNAME=IMS.PSBLIB,DISP=SHR 

// DD DSNAME=IMS.DBDLIB,DISP=SHR 

//SYSOUT DD S YSOUT= A, SPACE= ( CYL ,(1,1)), DCB= ( LRECL=1 3 3 , RECFM=FA ) 

//SYSUDUMP DD SYSOUT= A, DCB= ( LRECL=1 21 , RECFM=FBA , BLKSI ZE= 3025), X 

// SPACE= (3025, (200, 100), RLSE,,, ROUND) 

Assumes: 

1- User supplies source data from SYSIN. 

2. Output is Class A. 

3. MBR=NAME, when name is load module name for program. 

4. User must supply a G.STEPLIB card for IMS.RESLIB and IMS.PROGLIB 
With DISP=(SHR, PASS). 

5. SYSDA is generic device name. 

6. RESLIB is cataloged. 

7. User must append DD cards in execute set for data sets representing 
Data Language/I data bases. 

8. Execution time limit of two minutes is specified. 
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MEMBER NAME IMSPLIGO 

// PROC MBR=NAME,PAGES=50 

//C EXEC PGM=IEMAA # PARM= , XREF,ATR r LOAD r NODECK r NOMACRO r OPT=l , f X 

REGION=114K 

UNIT=SYSDA,SPACE=(1024, (60, 60) , RLSE, , ROUND), X 

DCB=BLKSIZE=1024 , DISP= (NEW, PASS) 

UNIT=SYSDA,SPACE=(1024, (60, 60) ,RLSE, , ROUND) , X 

DCB=BLKSIZE=1024 , DISP= (NEW, PASS) 

SYSOUT=A,DCB=(LRECL=125,BLKSIZE=629,RECFM=VBA) , X 

SPACE= ( 605 , ( 6PAGES . , fiPAGES ) , RLSE) 

UNIT=SYSDA,SPACE=(80, (250,80) ,RLSE) , X 

DCB=BLKSIZE=80,DISP= (NEW, PASS) 

PGM=DFSILNK0 , PARM= " XREF, LIST, LET ' , COND= ( 4 , LT , C) , X 

REGION=100K 

DSNAME=SYS1.PL1LIB,DISP=SHR 

DSNAME=SYS1 . COBLIB , DISP=SHR 

DSNAME=*.C. SYSLIN, DISP= (OLD, DELETE) 

DSNAME=IMS . PROCLIB ( DLITPLI ) , DI SP=SHR 

DDNAME=SYSIN 

DSNAME=IMS. PGMLIB ( 6MBR) , DISP=SHR 

SYSOUT=A,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) , X 

SPACE=( 605, ( S PAGES . , &PAGES) , RLSE) 

DSNAME=IMS.RESLIB,DISP=SHR 

UNIT=SYSDA,DISP= (NEW, DELETE), X 

SPACE=(CYL r (5,1) , RLSE) 

PGM=DFSIRC , PARM= • 3 , 6MBR ' , COND= ( 4 , LT) , X 

TIME=5,REGION=150K 

DSNAME=IMS. PSBLIB , DISP=SHR 

DSNAME=IMS. DBDLIB r DISP=SHR 

SYSOUT=A t DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) , X 

SPACE=(605, (500,500) , RLSE, , ROUND) 

SYSOUT=A,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) , X 

SPACE=(605 # (500,500) , RLSE, , ROUND) 



// 




//SYSUT1 


DD 


// 




//SYSUT3 


DD 


// 




//SYSPRINT 


DD 


// 




//SYSLIN DD 


// 




//L EXEC 


// 




//SYSLIB 


DD 


// 


DD 


//SYSLIN 


DD 


// 


DD 


// DD 




//SYSLMOD DD 


//SYSPRINT 


DD 


// 




//SYSOBJ 


DD 


//SYSUT1 


DD 


// 




//G EXEC 


// 




//IMS 


DD 


// 


DD 


//SYSPRINT 


DD 


// 




//SYSUDUMP 


DD 


// 





Same assumptions as IMSCOBGO 



MEMBER NAME IMS 



An example of the IMS procedure is given later in this chapter under 
"Type Region". 
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MEMBER NAME IMSO 



//IMSO JOB 



1 , IMS , PRTY=1 U , MSGLEVEL=1 



DD 
DD 



//NUCLEUS 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//IMS 

// 

//STEPLIB 

//SYSUDUMP 

// 

//INQCR 

//INMSG 

//OUTQCR 

//OUTMSG 

//IMSLOG 

// 

// 

// 

//IMSLOGR 

// 

// 

//DBDUMP 

// 

// 

// 

// 

// 





X 




X 


PARM 


X 


A 


X 


B 


X 


CCCCCCCC 


X 


DDD 


X 


EEE 


X 


FFF 


X 


GGG 


X 


HHH 





DD 



EXEC PGM=DFSIRCOO f 
PARM= , 00DFSINUC0019010010010020 f 
ABCCCCCCCCDDDEEEFFFGGGHHH 
REGION TYPE=0 
DMBSDYNAMIC=0 # RESIDENT=1 
NUCLEUS MEMBER NAME 
NUMBER OF OCR BUFFERS (CALCULATED) 
NUMBER OF MSG BUFFERS (CALCULATED) 
PSB POOL IN IK BLOCKS (DEFAULT) 
DMB POOL IN IK BLOCKS (DEFAULT) 
OS AM 6 TP POOL SIZE (DEFAULT) 
DSNAME=IMS . PSBLIB, DISP=SHR 
DSNAME=IMS . DBDLIB , DISP=SHR 
DD DSNAME=IMS.RESLIB,DISP=SHR 

SYSOUT=A,DCB=(LRECL=125 r RECFM=VBA,, X 

BLKSIZE=3129) ,SPACE=(125 # (3000,3000) r RLSE, , ROUND) 

DSNAME=IMS. IQCRDSET, DISP=OLD 

DSNAME=IMS . IMSGDSET, DISP=OLD 

DSNAME=IMS . OQCRDSET, DISP=OLD 

DSNAME=IMS . OMSGDSET, DISP=OLD 

DSNAME=IMSLOG, DISP= ( , KEEP) , 

DCB= (RECFM=V, BLKSIZE=1U08 , 

LRECL=14 , BUFNO=l ) , VOL= ( , , , 10 ) , 

UNIT=(2400,, DEFER) 

DSNAME=IMSLOG r DISP=OLD , 

VOLUME=SER= , 

UNIT= ( 2 U m , DEFER ) 

DSNAME=DFSIDUMP, DISP= (NEW, KEEP) , 

UNIT=AFF=IMSLOGR 

FOLLOWING WILL BE TP DEVICE ALLOCATION AS 

SPECIFIED DURING SYSTEM DEFINITION BY USER. 

USER MUST SUPPLY APPLICATION DATA BASE JCL, 

NONE WILL BE GENERATED 



DD 
DD 
DD 
DD 
DD 



DD 



DD 



150 



MEMBER NAME IMS1 



//NUCLEUS 


EXEC 


// 


] 


// 




// 


] 


// 


] 


// 


1 


// 


1 


// 


1 


// 


1 


// 


] 


// 


( 


//IMS 


DD 1 


// 


DD 1 


//STEPLIB 


DD 1 


//SYSUDUMP 


DD ! 


// 


] 


//INCR 


DD 1 


//INMSG 


DD 1 


//OUTQCR 


DD 1 


//OUTMSG 


DD 1 


//IMSLOG 


DD 1 


// 


] 


// 


i 


// 


1 


//IMSLOGR 


DD 1 


// 


i 


// 


1 


//DBDUMP 


DD 1 


// 


1 


// 


•'] 


// 


< 


// 


1 


// 


1 





X 




X 


PARM FLD 


X 


CCCCCCCC 




DDD 


X 


EEE 


X 


FFF 


X 


GGG 


X 


HHH 


X 



EXEC PGM=DFSIRCOO , REGION=17 OK , TIME=1U H , 
PARM=' OODFSINUC0019010010010020 1 
ABCCCCCCCCDDDEEEFFFGGGHHH 
REGION TYPE = A 

DMBSDYNAMIC=0, RESIDENT=1 B 
NUCLEUS MBR NAME 

NUMBER OF QCR BUFFERS ( CALCULATED ) 
NUMBER OF MSG BUFFERS (CALCULATED) 
PSB POOL IN IK BLOCKS (DEFAULT) 
DMB POOL IN IK BLOCKS (DEFAULT) 
OSAM 6 TP POOL SIZE (DEFAULT) 
DSNAME= IMS. PSBLIB, DISP=SHR 
DSNAME=IMS. DBDLIB, DISP=SHR 
DSNAME=IMS . RESLIB , DISP=SHR 

SYSOUT=A,DCB=(LRECL=125,RECFM=VBA, X 

BLKSIZE=3129),SPACE=(125, (3000, 3000) ,RLSE, r ROUND) 
DSNAME=IMS . IQCRDSET , DISP=OLD 
DSNAME=IMS . IMSGDSET , DISP=OLD 
DSNAME=IMS . OQCRDSET , DISP=OLD 
DSNAME=IMS. OMSGDSET, DISP=OLD 
DSNAME=IMSLOG , DISP= ( , KEEP ) , 
DCB= (RECFM=V,BLKSIZE=1408 r 
LRECL=^U00 w BUFNO=l) , VOL=( , , ,10) , 
UNIT= (2^00,, DEFER) 
DSNAME=IMSLOG, DISP=OLD, 
VOLUME=SER=000000 , 
UNIT=(2400,„ DEFER) 
DSNAME=DFSIDUMP, DISP= (NEW, KEEP) , 
UNIT=AFF=IMSLOGR 

FOLLOWING WILL BE TP DEVICE ALLOCATION AS 
SPECIFIED DURING SYSTEM DEFINITION BY USER. 
USER MUST SUPPLY APPLICATION DATA BASE JCL, 
NONE WILL BE GENERATED 



Assume that embedded STEPLIB allows only one step or first step only 
in JOB. 



MEMBER NAME IMSMSG 

//MESSAGE JOB 1,IMS,MSGLEVEL=1 

//G EXEC PGM=DFSIRC00,PARM=l,REGION=26K 

//STEPLIB DD DSNAME=IMS.PGMLIB,DISP=SHR 

// DD DSNAME=IMS. RESLIB, DISP=SHR 

//IMS DD DSNAME=IMS. PSBLIB, DISP=SHR 

// DD DSNAME=IMS . DBDLIB , DISP=SHR 

//SYSUDUMP DD SYSOUT= A, DCB= (LRECL=125,RECFM=VBA, X 

// BLKSIZE=3129) ,SPACE= (125, (2500 ,100) ,RLSE, , ROUND) 






MEMBER NAME IMSBATCH 



// PROC PSB=TEMPNAME 

//G EXEC PGM=DFSIRC00,PARM= , 2,6PSBV,REGION=26K 

//IMS DD DSNAME=IMS. PSBLIB, DISP=SHR 

// DD DSNAME=IMS. DBDLIB, DISP=SHR 

//SYSUDUMP DD SYSOUT= A, DCB= (LRECL=121,RECFM=VBA, X 

// BLKSIZE=3129),SPACE=(125, (2500 ,100) ,RLSE, , ROUND) 



MEMBER NAME DLITCBL 

INCLUDE SYSOBJ(DFSILIOO) 
ENTRY DLITCBL 



& 



// 




//SYSLIN 


DD 


// 




//SYSUT1 


DD 


// 




//SYSDT2 


DD 


// 




//SYSIN 


DD 


'/C 


EXEC 


//SYSPRINT DD 


//SYSGO 


DD 


// 




//SYSUT1 


DD 


//SYSUT2 


DD 


//SYSUT3 


DD 


//SYSIN 


DD 


//L 


EXEC 



MEMBER NAME DLITPLI 

INCLUDE SYSOBJ(DFSILIOO) 

ENTRY IHESAPD ^ 

MEMBER NAME SECURITY 

./ ADD NAME=SECURITY 

./ NUMBER NEW1=10,INCR=10 

// PROC OPTN=UPDATE lr IMS=\,0• ,SOUT=A 

//S EXEC PGM=DFSISMPO,,PARM=' £OPTN.SIMS.* 

//STEPLIB DD DSN=IMS.RESLIB,DISP=SHR 

// DD DSN=IMS.PGMLIB,DISP=SHR 

//SYSPRINT DD SYSOUT=gSOUT,DCB= (RECFM=VBA,BLKSIZE=400,BUFL=404 

//SYSPUNCH DD UNIT=SYSDA, SPACE= (80, (800, 400) , , , ROUND,, X 

DCB= (RECFM=FB,LRECL=80,BLKSIZE=400) ,DISP=( ,PASS) 

UNIT=SYSDA,SPACE= (TRK, (1,1) ) ,DCB=(RECFM=F,BLKSIZE=80) , X 

DISP=(,PASS) 

UNIT=SYSDA,SPACE=(100, (400,400) , ,, ROUND) , X 

DCB= (BLKSIZE=500 , RECFM=FB) 

UNIT=(SYSDA,SEP=SYSUT1),SPACE=(100,(400,400),,,ROUND), X 

DCB=*.S.SYSUT1 

DSN=NO. SYSIN. DD. ASTERISK 

PCM^EUASM^PARM^LOAD^ODECK' ,COND=(l2,LT,S) ,REGION=96K 

S YSOUT= g SOUT , DCB= ( RECFM=FBM , LRECL=1 21 , BLKSI ZE= 6 5 ) 

UNIT=(SYSDA,SEP=SYSPRINT),DISP=(,PASS), X 

DCB=* . S . SYSPUNCH, SPACE= ( 80 , (400 , 400 ) ,, , , ROUND) 

UNIT=SYSDA, SPACE= (CYL, (5,1)) 

UNIT=SYSDA, SPACE= ( CYL ,(5,1)) 

UNIT=(SYSDA,SEP=(SYSUT1,SYSUT2)) ,SPACE=(CYL„ (5,1)) 

DSN=*.S. SYSPUNCH, DISP=( OLD, DELETE) 

PGM=DFSILNKO, PARM= • XREF, NE,OL' ,REGION=110K, COND= ( 4 ,LT, S) 
//SYSPRINT DD SYSOUT=gSOUT,,DCB= (RECFM=FBA,LRECL=121,BLKSIZE=605) 

//SYSLMOD DD DSN=IMS.RESLIB,DISP=SHR ^ 

//INPUT DD DSN=*.C. SYSGO, DISP=; (OLD, DELETE) ( 

//SYSUT1 DD UNIT=(SYSDA,SEP=INPUT),SPACE=(CYL,(5,D) V 

//SYSLIN DD DSN=*.S. SYSLIN, DISP= (OLD, DELETE) 

MEMBER NAME MFDBLOAD 

// PROC SOUT=A 

//LOAD EXEC PGM=DFSIRC00,PARM= , 3,DFSSAM01',REGION=110K 

//STEPLIB DD DSN=ICS.CLOD,DISP=SHR 

// DD DSNAME=ICS.CLOD,DISP=SHR 

//IMS DD DSNAME=ICS.PSBLIB,DISP=SHR 

// DD DSNAME=tCS.DBDLIB,DISP=SHR 

//SYSUDUMP DD SYSOUT=SSOUT 

//DI21PART DD DSNAME=IMS. DI21P ART ( PRIME ) ,DISP=( , KEEP),, DCB=DSORG=IS, X 

// SPACE= (CYL, 3, ,CONTIG) , VOL=SER=gPSER,UNIT=gPUNIT 

//DI21PARO DD DSNAME=IMS.DI2lPARO,DISP= ( ,KEEP) ,SPACE=(CYL, 3, ,CONTIG) , X 

// VOL=SER=gOSER,UNIT=gOUNIT 

//SYSOUT DD SYSOUT=gSOUT 

//INPUT DD DSNAME=ICS.BMAC(MFDFSYSN),DISP=SHR 

MEMBER NAME MFDBDUMP 

// PROC SOUT=A 

//DUMP EXEC PGM=DFSIRC00,PARM= , 3,DFSSAM08 , ,REGION=110K 

//STEPLIB DD DSN=ICS.CLOD,DISP=SHR 

// DD DSNAME=ICS.CLOD„DISP=SHR 

//IMS DD DSNAME=ICS.PSBLIB,DISP=SHR 

// DD DSNAME=ICS.DBDLIB,DISP=SHR 

//SYSUDUMP DD SYSOUT=SSOUT 

//DI21PART DD DSNAME=IMS.DI21PART,DISP=SHR 

//DI21PARO DD DSNAME=IMS.DI21PARO,DISP=SHR 

//OUTPUT DD SYSOUT=6SOUT 
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Operating System/360 Link Pack Modules 

Many of the Data Language/I modules, the OSAM modules, and the > BISAM 
modules used by IMS/360 can be placed in the Operating System/360' RAM 
area (MFT-II) or link pack area (MVT) . The following module list 
indicates those modules whose placement into RAM or link pack is 
recommended. The next section of this chapter describes the procedure 
that can be utilized to accomplish the placement of these modules in 
link pack at Operating System/360 IPL time. The modules to be included 
must previously exist in either the SYS1.SVCLIB or the SYS1. LINKLIB data 
set. 

From SYS1. LINKLIB 

Module Name Module Definition 

DFSIRCOO IMS/360 Region Controller 

DFSIDLRO Data Language/I HISAM Retrieve 

DFSIDLHO Data Language/I HSAM 

DFSIDLIO Data Language/I HISAM Insert 

DFSIDLDO Data Language/I HISAM Delete/Replace 

DFSIOS20 OSAM Read/Write 

DFSIOS30 OSAM Check 

DFSIISMO Data Language/I ISAM Simulator 

DFSIWKNO Data Language/I Write Key New Simulator 
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From SYS1.SVCLIB 

Module Name Module Definition 

IGG019Z9* OSAM Channel End Appendage 

IGG019GX BISAM Asynchronous Read/Write 

IGG019G9 BISAM Appendage with Write Check 

IGG019JV BISAM Non- Privileged Macro-Time 

Read/Write 
IGG019J7 BISAM Privileged Macro-Time Read/Write 

* The last two characters of this module name are determined by the 
IMS/360 user during system definition. 

OS/360 Link Pack Procedures 

The following procedures should be utilized to place IMS/360 in 
MFT-II or MVT link pack. This procedure should be placed in 
SYS1.PR0CLIB using the Operating System/360 utility program IEBUPDTE. 

./ ADD NAME=IEAIGG01,LIST=ALL 

SYS1 . LINKLIB DFS IDLDO , X 

DFSIDLHO, X 

DFSIDLRO, X 

DFSIDLIO, X 

DFSIOS20, X 

DFSIOS30, X 

DFSIRCOO, X 

DFSIWKNO , X 
DFSIISMO 

./ ADD NAME=IEAIGG02,LIST=ALL 

SYS1.SVCLIB IGG019GX, X 

IGG019J7, X 

IGG019G9, X 

IGG019JV, X 
IGG019Z9 

The module IGG019Z9 is the OSAM channel end appendage, the last two 
characters of which are user-determined. 

When Operating System/360 is IPLed and the system responds with: 

SPECIFY SYSTEM PARAMETERS 

the modules described in the two preceding procedures are placed in 
link pack if the response includes : 

REPLY OO r *RAM=01 # 02 a 

and are completely user- dependent. 



TYPES OF PROCESSING REGIONS - JCL 

"\ This chapter has described the procedures provided by IMS/360 system 

) definition for execution of the various processing region types. 
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Region 
Type 


1 

2 

3 



Region Function 

IMS/360 Control Program 

IMS/360 Message Processing 

Programs 

IMS/360 Type 2 Batch 

Processing 

IMS/360 Type 3 Batch 

Processing 



Procedure Name Used 

IMSO or IMS1 
IMSMSG 

IMSBATCH 

DLIBATCH 



The IMS and DLIBATCH procedures do not contain DD cards for data 
bases. These DD cards must be supplied, added to the procedure, by the 
IMS/360 user. The IMSBATCH and DLIBATCH procedures do not include DD 
cards for SYSIN and SYSOUT or other user-defined data sets. The 
necessary cards must also be added by the IMS/360 user. 



Type Region 



IMS1 Procedure 

To use the IMS1 procedure, the user should supply the following JCL: 

//IMS JOB MSGLEVEL=l,PRIORITY=13 

//JOBLIB DD DSNAME=IMS.RESLIB,DISP=SHR 

// EXEC IMS1,REGION=160K,TIME=1440, X 

// PARM= ' ABCCCCCCCCDDDEEEFFFGGGHHH • 

where : 

A indicates region type is 0. 

B indicates BTAM=0. 

CCCCCCCC is IMS/360 control program nucleus member name. 

DDD is number of QCR buffers. 

EEE is number of message buffers. 

FFF is PSB pool size in IK blocks. 

GGG is DMB pool size in IK blocks. 

HHH is OSAM and teleprocessing buffer pool size in IK blocks, 

The region size of 160K is an estimate based upon the size of the 
user's system. It is assumed that the IMS/360 modules are in the 
IMS.RESLIB data set. 

IMSO Procedure 

The use of the IMSO procedure does not require a user to supply JCL 
control cards to an Operating System/360 SYSIN job stream. The IMSO 
procedure is invoked by the IMS/360 reader procedure. 

The JCL procedure, IMSO, for an IMS/360 Type region may be stored 
complete in a procedure library. To start the IMS/360 control program 
(Type region) , an operator can override the standard Operating 
System/360 start reader command as follows: 

S RDR,2311,RESLIB,DSLIB,DSN=SYS1.PROCLIB(IMSO) ,DISP=SHR 
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It is more convenient to define a reader procedure that defaults to 
the IMS/360 job member. An example of such a reader procedure is: 

//IEFPROC EXEC PGM=IEFIRC, READER FIRST LOAD C 

// REGI0N=U8K, READER BASIC REGION C 

// PARM= , 0010300500102U905010SYSDA 'DEFAULT C 

// BPPTTTOOOMMMIIICCCRLSSSSSSSS PARM FLD C 

// DEFINED PROGRAMMER NAME AND B C 

// ACCOUNT NUMBER NOT NEEDED C 

// PRIORITY=01 PP C 

// JOB STEP INTERVAL=30 MINUTES TTT C 

// PRIMARY SYSOUT SPACE=50 TRACKS OOO C 

// SECONDARY SYSOUT SPACE=10 TRACKS MMM C 

// READER/INTERPRETER DISPATCHING PRIORITY=2U9 C 

// JOB STEP DEFAULT REGION=50K CCC C 

// DISPLAY 6 EXECUTE C0MMANDS=1 R C 

// BYPASS LABEL=0 L C 

// SYSOUT UNIT NAME=SYSDA SSSSSSSS C 

//IEFRDER DD UNIT=2311, C 

// VOLUME=SER=RESLIB, C 

// DCB=BUFNO=l, C 

// DSNAME= IMS. PROCLIB (IMSO), C 

// DISP=SHR 

//IEFPDSI DD DSNAME=SYS1.PR0CLIB, PROCEDURE LIBRARY C 
// DISP=OLD 

// DD DSNAME=IMS . PROCLIB , DI SP=SHR 

//IEFDATA DD UNIT=SYSDA, SPOOL DEVICE C 

// SPACE=(80, (5bO,500),RLSE,CONTIG), AMOUNT C 

// DCB=(BUFNO=2,LRECL=80,BLKSIZE=80, C 

// RECFM=FB,BUFL=80) 

A reader procedure, IMS, is included as a part of the IMS/360 
package. Using this procedure with the member name of IMS, the IMS/360 
online JCL, IMSO, can be read into the Operating System/360 input queue 
using the command: 

S IMS 

The reader procedure, IMS,, must be moved from the PDS library 
described on the PROCLIB card of system definition to the Operating 
System/360 SYS1. PROCLIB data set. 

Type 1 Region 

The use of the IMSMSG procedure is provided from the IMS/360 master 
terminal through the /START REGION command. For this reason, the 
procedure includes a JOB statement. If the user wishes to start message 
regions through a SYSIN stream with cards rather than with the /START 
REGION command, a new message region procedure should be established 
which does not contain a JOB statement. The /START REGION and /STOP 
REGION commands are detailed in the IMS/360 Operations Manual , Volume II 
- Machine Operations . 

Type 2 Region 

The procedure for Type 2 processing region execution is entitled 
IMSBATCH. To invoke this procedure,, the following JCL is required: 

8U8 . name , MSGLEVEL=1 

DSNAME-IMS .RESLIB, DISP=SHR 

DSNAME=IMS . PGMLIB , DISP=SHR 

IMSBATCH, X 

PARM=2 , AAAAAAAA, BBBBBBBB , CCCCCCCC, DDDDDDDD 
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//TYPE2 


JOB 


//JOBLIB 


DD 


// 


DD 


// 


EXEC 


// 





where : 



is the type of processing region. 

AAAAAAAA 

is an application program name. 

BBBBBBBB 

is an optional parameter that allows the user to specify a PSB 
name different from the program name specified in parameter 
AAAAAAAA. 

cccccccc 

is an input transaction code. Use of this parameter is required 
only if the Type 2 program intends to access messages of the 
specified transaction code from the input queue. 

DDDDDDDD 

is an output transaction code or logical terminal name. If this 
optional parameter is specified, it overrides the original 
output destination for all input messages that are processed by 
the Type 2 program specified in parameter CCCCCCCC. Even if no 
CCCCCCCC parameter is specified, the Type 2 program may output 
to the transaction code or logical terminal name specified in 
parameter DDDDDDDD. 

The user may append DD cards to this procedure for any Operating 
System/360 data sets that do not represent IMS/360 data bases. 

Type 3 Region 

The procedure for Type 3 region execution is entitled DLIBATCH. The 
user must append to this procedure DD cards for the data sets that 
represent the physical storage of his data bases. The user may append 
DD cards to this procedure for any Operating System/360 data sets that 
do not represent IMS/360 data bases. The JCL required for invoking the 
DLIBATCH procedure is: 

//DLIBATCH JOB MSGLEVEL=1 

//JOBLIB DD DSNAME=IMS.RESLIB,DISP=SHR 

// DD DSNAME=IMS.PGMLIB r DISP=SHR 

Where the application program and the PSB have same name: 

// EXEC DLIBATCH ,PARM= f 3 ,PSBNAME' 

Where the application program has a different name than the PSB: 

// EXEC DLIBATCH ,PARM= f 3, PGMNAME, PSBNAME 1 

where: 

PGMNAME equals the application program name. 

PSBNAME equals the PSB name. 
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SYSTEM DEFINITION - TYPE 3 PROCESSING REGION 

The system definition requirements for a Type 3 processing region are 
a subset of those required for the online IMS/360 system. The necessary 
information, including a flow of functions to be performed and the 
necessary JCL statements for system definition execution, appears 
elsewhere throughout this chapter. 

SYSTEM DEFINITION ERROR CONDITIONS 

The IMS/360 system definition error conditions are listed in Chapter 
7. 

SYSTEM DEFINITION EXAMPLES 

There are two examples, one for a Type 0, l f and 2 processing region, 
and the other for a Type 3 (batch stand-alone) processing region. 

The Type 0, 1, and 2 processing region example assumes the following: 

• Type 1 programming system being used in MVT 

• Three application programs 

• Ten transaction codes against those application programs 

• Two data bases 

• Line groups: 

nonswitched 1050 communication system with one terminal 
switched (dial) 1050 communication system with three terminals 
switched (dial) 2740 communication system with three terminals 
nonswitched 2740 communication systems with four terminals 

See the example below for additional assumptions. 

Teleprocessing Example 

This example illustrates the output from Stage 1 of the IMS/360 
system definition utility program. The input to Stage 1 (that is, the 
control cards) is provided in the output listing followed by a summary 
of the featgroup specifications, the application specifications, the 
communication specifications, and the data set specifications. Next are 
the punch statements, followed by the comments considered warnings. 

If the user invokes the alternate IMS/360 system definition for an 
alternate IMS/360 nucleus, an example would appear as follows: 

• The IMSTEST control card would precede all of the other system 
definition cards. 

IMSTEST GLIB=ICS . MACLIB , LLIB=ICS . LOAD , BLIB=ICS . BLKLIB, CODE=A 

• Referring to the teleprocessing example that follows Figure 23, on 
Page 17 (upper right of page) is the start of the punch statements. 
Note that statement 749 starts Step 1 and there are 38 steps 
generated (through Page 53). The alternate system definition 
example of the punch statements would not have Steps 1 through 6, 
Steps 32 through 35, and Step 38. Step 7, statement 1287, would 
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become Step 1 and all steps that follow would be renumbered 
consecutively. 

Figure 22 shows, in summary form, the various transaction codes, 
programs, and data bases, including their relationship to each other, as 
they exist in the following example of system definition. 

Figure 23 shows, in summary form, the teleprocessing relationship as 
it exists in the following example of system definition. A review of 
the section titled IMS/360 Telecommunications Considerations, in Chapter 
3 # is recommended. 



/" 



TRANSACTION CODE 



PROGRAMS 



DATA BASES 



DLN 



DLI 



ICS 



IMS 



HIMASN01 



NOP 



NOPSB 



SWN 


I 








SWITS 


1 








SWIPR 


1 








SWIPASC! 1 












SWITCH 






SWI 




























V 



Note: A review of the section in Chapter 3 titled IMS/360 
Telecommunications Considerations' / is recommended. 



Figure 22. System definition example summary 
programs, and data bases 



- transaction codes, 
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LOGICAL 
TERMINAL 
NAME 



L2740S2U 



L27 40SI 1 

MASTER 



physical 
terminal 
type 



-E 



t 1050 



LINE 
TYPE 



T 



LINE 

GROUP 

TYPE 



2740 NONSWITCHED 
8TATION CTL 



SWITCHED 

I.1NH 

AUTOANSWER 



SWITCHED 

LINE 

AUTOANSWER 



ILrTW 



NONSWITCHED 
LINE 



r 2740 SWITCHED 
TRANSMIT CNTR1, 



"J\ 



1050 SWITCHED 
STATION CTL 



DxJlO! 
_ | ]_ST, 



tr- 



2260 NONSWI 
STATION CTL 



TChEDJ 
TL | 



POOL 
TYPE 



r 



AUTOANSWER 



/ AUTOANSWER -|- 



AUTOANSWER 



3URPOOL | LOGICAL 
NAME _l TERMINAL 

I NAME 



TELNO 
2774211 



1*1 CAROL 



Howard I 



Note: A review of the section in Chapter 3 titled IMS/360 
Telecommunications Considerations*^ recommended. 



Figure 23. System definition example summary - teleprocessing 
relationship 
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LCC CBJECT CCDE ADDR1 AD0R2 STMT SOURCE STATEMENT 



F30SEP69 2/12/70 



SYSTEM=(MVT, ALL I.MAX 10= 10,MAXREGN = 3,M.SGBUFF = 10, 
C0MMSVC=(244,245) , nSAMSVC=243,0CENDA=Z8,CKPT=500 



ALL IMS/360 FUNCTIONS ARE SELECTFO 

MVT PROGRAMMING SYSTEM WILL BE USED 

3 REGIONS MAY BE OPERATED SIMULTANEOUSLY 

10 SUBTASKS MAY 3E IN OPERATION TOGETHER 

10 TERMINALS MAY BE OPERATED SIMULTANEOUSLY 

OSAM CHANNEL END APPENDAGE - IGG019Z8 

CHECKPOINTS OCC'IK AFTER FVERY 500 LOG ENTRIES 

COMMUNICATION - ASK SVC NUMBER - 244 

- REPLY SVC NUMBER - 2*5 
SUPtRVlSCR STATE SVC NUMBER - 243 



* APPLCTN PSB=0FSSAf02 

.5 DATABASE 0BD<=DI21PART,INT£NT=SHARE 

16 TRANSACT CODE= CSPPN, MSGTYPE= < SNGLSEG, NONPE SPONSE ) 

17 TRANSACT CODE=PART,MSGTYPE=(SNGLSEG,N0NRESP0NSE> 

18 APPLCTN PSB=DFSSAM03 

1<3 DATABASE CBC=C121PART,INTENT=SHARE 

20 TRANSACT CODE=DSPI NV .MSGTYPE* ( SNGLSEG, NONRESPONSEI 

21 TRANSACT C00E=INVT0RY,MSGTYP6=< SNGLSEG, NONRESPONSE) 

22 APPLCTN PSB=»DFSSA><07 

23 DATABASE DBD=0 I 21PART, I NTENT=SHARE 

24 TRANSACT CO0E= CSPALL I, MSGTYP E= ( SNGLSEG, NONRE SPONSE ) 

25 APPLCTN PSB=DFSSAN04 

26 DATABASE DBD=0 I 21P ART 

27 TRANSACT CODE= ADOI ,PRTY= ( 7,9, 5 I 

28 TRANSACT CODE=ADDI NV, PRTY= (7 ,9 ,5 ) 

29 TRANSACT CODE= ADDP ART,PRTY=( 7, 9, 5) 

30 TRANSACT C00E=ADDPN,PRTY=<7,9,5) 

31 TRANSACT CODE=DLET I ,PRTY= ( 5, 7, 2) 

32 TRANSACT C00E=DLET INV, PRTY= I 5, 7, 2 )- 
3? TRANSACT CODE=DLETPART , PRTY= (5 , 7i 2 I 

34 TRANSACT CODE=DLETPN,PRTY=l 5 , 7,2 ) 

35 APPLCTN PSB=DFSSAM05 

36 DATABASE 0BD-DI21PART 

37 TRANSACT CODE=CLOSE,MSGTYPF.= i SNGLSEG , NONRE SPONSE ) 

38 TRANSACT CCDE=CLSORD ,PRT Y= t 7,9, 5 1 

39 APPLCTN PSB=UFSSAM06 

40 DATABASE DBD=DI21PART 

41 TRANSACT CCDE=CISB,PRTY=(9,10,2) 

42 TRANSACT CODE=D I SBURSE , MSGTYPE= [ SNGLSEG, NONR ESPONSE ) 

43 APPLCTN PSB=DFSLKM0O 

44 DATABASE CBD*0I31PH01 ,1 NTENT=SHARE 

45 TRANSACT CODE=0F S, PRTY= ( 5, 12 , 5) .PROCLI M=< 8 ,100) , 

INQUIRY=YES 

46 APPLCTN PSB=HIMASN01 



LOG OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 



DATABASF DBD=0I31PH01 

DATABASE CBD=DI31PH02 

TRANSACT CODE=DL I , PRTY = (5 , 10 , 5 ) , PROCL I M= ( 10, 10 ) , 

MSGTYP E=( SNGLSEG, RE SPONSE) 
TRANSACT CO0E=ICS,PRTY=(5, 12, 5) , PROCL I M= < 10, 100) 
TRANSACT C0nE=IMS,PRTY=(2,5,lO),PR0CLIM=(l,100), 

MSGTYPE- (SNGLSEG, NONRE SPCNSE) 
TRANSACT C00E=CLN,PRTY=(0,3, 3 I , PROCL IM=( 10, 100) 
APPLCTN PSB=N0PSB 

DATABASE DBD=DI 31PH01 , INTENT = SHARE 

TRANSACT CODE=NOP, PRTY= ( 1, 1, 1 1, PROCL IM = ( 5, 50 ), INQUIRY=YES 

APPLCTN PS8=SWITCH 

DATABASE DB0=DI31PH01, INTENT=SHARE 

TRANSACT C0DE=SW1 , PRTY= ( 1 ,7 , 1000 ) , PROCL IM= (5, 1 ) , 

INQUIRY=YES *1 12- t> 

transact cooe=swibr,prty=( 5*, 5^4) , procl im= < 20, 100) , 

inouiry=yes 
transact code=swi pass, prty= ( 4,6, 1 ) .procli m=( 20 ,100 i , 

incuiry=yes 
transact cooe=swipr,prty=(14,14,100),proclim=i20,100), 

■ inquiry=yes 
transact c0de= sw it s , prty= 14,6,1), procl !m= ( 20, 100 ) , 

:nquiry=yes 
transact cane=shn,prty=(0,4,4),proclim=(5,100) ,inquiry=yes 
applctn ps0-himarj01 
database 0bd=di21irjf 
transact code=*,prty=( 10, 14,6) 
transact cooe=rje,prty=(2,4,10) 
\pplctn ps8=himajc01 
database 0bd=0s40jc01 . 
transact code =tppl1 ,ppty= (8,8 ,65535 ) 
applctn psb=himajcc2 
database dbd=ds40jc01 
transact c00e=tppl2 ,prty= ( 8 , 8 ,65535 ) 
applctn psb=himajc03 
database dbd=di31ph01 
transact co0e=tube ,prty=( 8,8, 65535) 
applctn psb=h,iblsk01,pgmtype=3atch 
database cbd=di31sk01 
database 0bd=di32skc1 
transact cc0e=sw1 

WARNING ** 

2.G312 PRIORITY VALUES FOR TRANSACTICN CCDES 
*, USED BY. BATCH PROGRAMS MUST BE NULL; 

*, VALUES ARE RESET TO PRTY= (0 ,0,65535 ) 

APPLCTN PSR=HIBASK01,PGMTYPE=BATCH 
DATABASE CRD*0I31SK01 
DATABASE CBO=DI32SK01 
TRANSACT COOE=SW2,PRTY=(0,2, 1000) 
WARNING ** 
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lcc nejecT code addri addr2 stmt source statement F30SEP69 2/12/70 

90 2.G212 PRIORITY VALUES FOR TRANSACTION COOES 

91 *, USEC BY BATCH PROGRAMS MUST BE NULL; 

92 *. VALUES ARE RESET TO PRTY= (0,0, 1000 > 

93 APPLCTN PSB=HSBASK01,PGMTYPE=RATCH 

94 DATABASE CBD=0S31SKOl 

95 APPLCTN PSR=ENQ0SK01,PGMTYPE=TP 

90 TRANSACT CODE=ENQ,PRTY=<8,8,65535) 

97 APPLCTN PSB=HITASK01,PGMTYPE=TP 

96 DATABASE CBD*PI31SK01 

99 TRANSACT CODE=SK I 1 , PRTY= ( 8, 8, 65535) 



100 


APPLCTN 


PSB=HITASK02,PGMTYPE=TP 


101 


DATABASE 


CB0=DI32SKC1 


102 


TRANSACT 


CODE=SKI2,PRTY=<8,8,6553 5) 


103 


APPLCTN 


PSB*HSTASK01,PGMTYFE=TP 


104 


DATABASE 


CB0=DS31SK01 


105 


TRANSACT 


CCDE*SKH1,PRTY=( 8, 8,6 55 35) 


107 


LINEGRP nDNAME=DD2740S 


108 


LINE 


FEAT=POLL,ACDR=022 


109 


TERMINAL 


ACDR=E2 


110 


NAME 


L2740S2 


111 


LINE 


FEAT=>POLL,ADDR*023 


112 


DFSCTBMT TERMINAL 


A(1DR=E2 


113 


NAME 


MASTER 


114 


NAME 


L2740S1 


115 


LINE 


FEAT=P0LL,ADDR=024 


116 


TERMINAL 


ADDK=E2 


117 


NAME 


L2740SM1 


118 


TERMINAL 


ADDR=E4 


119 


NAME 


L2740SM2 


120 


LINEGRP 


DCNAME-0D274OA, FEAT= I TRANSCTL , SHI TCHED) ,UNI TYPE=2740 


121 


LINE 


FEAT=AUTCANS,ADDR=026 


122 


TERMINAL 


Acrm=E2 


123 


NAME 


INQUIRY1 


124 


1 INEGRP 


DUN AME=DD 1 O'OA ,FEAT= ( STACTL , SWITCHED), UN ITYPE= 1050 


125 


LINE 


FEAT=AUT0ANS,ADDR=027 


126 


TERMINAL 


AC0R=E2 


127 


NAME 


INQUIRY2 


128 


POOL 


FEAT=AUT0ANS,ZONE=0 


129 


SUBPOOL 




130 


NAME 


CAROL 


131 


SUBPOOL 




132 


NAME 


ELEANOR 


133 


NAME 


DAN 


134 


NAME 


HOWARD 


135 


SUBPOOL 




136 


NAME 


SHARRON 


137 


NAME RICHARD 


138 


NAME JOE 



LIT OBJECT CCOfc A00R1 ACCR2 STMT SOURCE STATEMENT F30SEP69 2/12/70 

139 LINEGRP DCNAME=001050 ,FE AT=( STACTL, NONSW ITCH ), UN ITYPE= 1050 

140 LINE FEAT=P0LL,ADDR=02A 

141 TERMINAL ACDR=E? 

142 NAME PRINTER, COMPT-FTRl 

143 NAME T2780,COMPT=PTR1 

144 NAME TAPEPNCH,COMPT=PTPCH 

145 NAME M0OEL2,C0MPT=PTPCH 

146 NAME CARDPNCH,C0MPT=3 

147 NAME MODEL2M,COMPT=3 

148 LINEGRP DDNAME-0D2260T,UNITYPE=2260 

149 LINE FEAT=POLL,ADDR*0A2 

150 TERMINAL ADCR-A0-,UNIT=40 

151 NAME BILL 

152 TERMINAL ADDR=A1,UNIT=4C 

153 NAME LEONARD 

154 NAME ERNE 

155 TERMINAL ADCR=A2,UNIT=40 

156 NAME CARL 

157 TERMINAL ADDR=A 3, UNIT=4C 

158 NAME BUD 

MASTER 

P.DS=ICS.PSBLIB,UNIT=2314,V0LN0 = IMSLIB 

PDS=ICS.nBDLie,UNIT=2314,V0LN0=IMSLIB 

PDS=ICS.CL0D,UNIT=2314,V0LN0*IMSLIB 

PDS=ICS.CLOD,UNIT=2314,V0LNO=IMSLIB 

PDS=ICS.BMAC,UNIT=2314,V0LNO=IMSLIB,COPY=ALL 

PDS=ICS.PROCLIB,UNIT=2314,V0LNC=STORGE 

QCPIN=( INQCR, ICS.IQCR0SET,2314,IMSDBS).REUSE=(YES,15 0) , , 

MSGIN=(INMSG,ICS.IMSG0SET,2314,IMS0eS). , 

QCR0UT=(OUTOCR,ICS.OCCRDSET,2314,IMSDBS), , 

MSGOUT = <OUTMSG,ICS.OMSGDSET, 2314, IM SOBS) 

UT1S0S=TEMPSET,,ASMPRT=0N,LEPRT=(XREF,LIST) 
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MASTTERM 


162 


PS8LIB 


163 


OBOLIB 


164 


PGMLIB 


165 


RESLIB 


166 


MACLIB 


167 


PROCLIB 


168' 


MSGQUEUE 
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IMS/76C SYSTEM DEFINITION SPECIF ICATICNS 



ICC OBJECT CODE 



A0UR1 AODH2 STMT 

172 

174 
175 
176 



SOURCE STATEMENT 

*,FF«TGRP SPECIFICATIONS 

*, FFATGPP- 

*, CCNVERTUNPUT) -UC 

*, CONVERTIOUTPUT1-UC 



F30SEP6" 2/12/70 



,APPLICATItlN SPECIFICATIONS 



131 
182 
183 
184 
165 
186 
187 
188 
189 
1-90 
191 
192 
103 
194 
195 
196 

198 
\c,q 

2CC 
201 
202 
203 
204 
205 
206 
207 

2oe 

Z09 
210 
211 
212 
213 

215 
216 
217 
218 
219 
220 



PSB NAME-DFSSA'-IO? TYPE-TP 

CATABASE-0I21PART INTENT-SHARE 
TRANSACTION COOE-OSPPN 

MESSAGE TYPE-SNGLSEG NONRESPONSF 
N.1KMAL PTY-1 
LIMIT PTY-1 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PRCC LMT SEC-65535 
TRANSACTION CODE-PART 

MESSAGE TYPE-SNGLSEG NONRESPONSE 
NO^AL PTY-1 
LIMIT PTY-1 
LIMIT CNT-65535 
PROC L«T MSG-65535 
PROC LMT SEC-65535 

PSB NAME-CFSSA-103 TYPE-TP 

CATABASE-B121PART INTENT-SHARE- 
TRANSACTICN CCDE-CSPINV 

MESSAGE TYPE-SNGLSEG NONRESPONSE 
NORMAL PTY-1 
LICIT PTY-1 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PRCC L«T SEC-65535 
TRANSACTION COOE-INVTORY 

MESSAGE TYPE-SNGLSEG NONRFSPONSE 
NORMAL PTY-1 
LIMIT PTY-1 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PRCC LMT SEC-65535 

PSB NA"E-CFSSA«07 TYPE-TP 

DATABASF-DI21PART INTENT-SHARE 
TRANSACTION CODE-DSPALLI 

MESSAGE TYPE-SNGLSEG NONRESPONSE 
NORMAL PTY-1 
LIMIT PTY-1 



IMS/360 SYSTEM CEFINITION SPECIFICATIONS 



LCC OBJECT CODE ADDR1 AD0R2 STMT SOURCE STATEMENT 



221 
222 
223 

225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
2S1 
252 
253 
254 
255 
256 
2 57 
258 
2 59 
260 
261 
262 
263 
264 
265 
266 
267 
268 
2 69 
270 
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LIMIT CNT-65535 
PRCC LMT MSG-65535 
PROC LMT SEC-65535 

PSB NAME-DFSSAM04 TYPE-TP 

CATABASE-DI21PART I NTFNT-UPDATE 
TRANSACTION COCE-ADOI 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-.7 

LIMIT PTY-9 

LIMIT CNT-5 

PRCC LMT MSG-65535 

PROC LMT SEC-65535 

TRANSACTION CODE-AOOINV 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-7 

LIMIT PTY-9 

LIMIT CNT-5 

PRCC LMT MSG-65535 

PROC LMT SEC-65535 

TRANSACTICN COOE-ADCPART 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-7 
LIMIT PTY-9 
LIMIT CNT-5 
PROC LMT MSG-65535 
PRCC LMT SEC-65535 
TRANSACTICN CCDE-ADDPN 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-7 
LIMIT PTY-9 
LIMIT CNT-5 
PRCC LMT MSG-65535 
PROC LMT SEC-65535 
TRANSACTICN CODE-DLETI 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-5 

LIMIT PTY-7 

LIMIT CNT-2 

PRCC LMT MSG-65535 

PRCC LMT SfcC-65535 

TRANSACTION C0I1E-DLET1NV 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-5 
LI^IT PTY-7 
LIMIT CNT-2 
PRCC LMT MSG-65535 
PROC L*T SEC-65535 
TRANSACTICN CCDE-CLETPART 

MESS*GE TYPF-MULTSEG NONRESPONSE 
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i.cr nnjECT cent aiwri aooi»2 stmt source statement 
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271 
272 
273 
2 74 
2/5 
276 
27 7 
27f 
279 
2*)C 
2dl 
282 

234 
235 
286 
2H7 
2R8 
289 
290 
291 
292 

29 3 
294 
295 
296 
297 
298 
299 

301 
3R2 
303 
304 

30 5 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 

318 
319 
320 



NORMAL PTY-5 

LIMIT PTY-7 

LIMIT CNT-2 

PRrC LIT MSG-65535 

PHHC L"T SEC-65535 

TRANSACTION COQE-DLETPN 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-5' 

LIMIT PTY-7 

LIMIT CNT-2 

PRCC LMT MSG-65539 

PROC LMT SEC-65535 

PSB NAME-0FSSAM05 TYPE-TP 

0ATABASE-0I21PART I NTENT-UPOATE 
TRANSACTION CODE-CLOSE 

MESSAGE TYPE-SNGLSEG NONRESPONSE 
NORMAL PTY-1 
LIMIT PTY-1 
LIMIT CNT -65535 
PROC LMT MSG-65535 
PROC LMT SEC-65535 
TRANSACTION CCD6-CLS0RD 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-7 

LIMIT PTY-9 

LIMIT CNT-5 

PRCC LMT MSG-65535 

PRCC LMT SEC-65535 

PSR NAME-CFSSAM06 TYPE-TP 

0<TABASE-DI21PART INTENT -UPDATE 
TRANSACTION CODE-DISB 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-9 
LIMIT PTY-10 
LIMIT CNT-2 
PRCC LMT MSG-65535 
PRCC LMT SFC-65535 
TRANSACTION CODE-DISBURSE 

MESSAGE TYPE-SNGLSEG NONRESPONSE 
NOUMAL PTY-1 
LIMIT PTY-1 ! 
LIMIT CNT-65535 
PROC LMT MSG-65535 
PROC LMT SEC-65535 

PSB NAME-DFSLKMOO TYPE-TP 

CJTABASE-0I31PH01 INTENT-SHARE 
TRANSACTION CCDE-DFS 



IMS/?6C SYSTE" DEFINITION SPECIFICAT ICNS 



LCC C3JECT CCOE AD0R1 AD0R2 STMT SOURCE STATEMENT 



328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 

35a 

360 
361 
362 
3 63 
364 
365 
366 
367 
368 
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MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-5 
LIMIT PTY-12 
LIMIT CNT-5 
PRCC LMT MSG-8 
PRCC LMT SEC-100 

PSB NAME-HIMASN01 TYPE-TP 

DATABASF-D131PH01 INTENT-UPDATE 
DATABASF-DI31PH02 INTENT-UPDATE 
TRANSACTION CODE-DLl 

MESSAGE TYPE-SNGLSEG RESPONSE 
NORMAL PTY-5 
LIMIT PTY-10 
LIMIT CNT-5 
PROC LMT MSG-10 
PRCC LMT SEC- 10 
TRANSACTION CCDE-ICS 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-5 
LIMIT PTY-12 
LIMIT CNT-5 
PRCC LMT MSG-10 
PRCC LMT SEC-100 
TRANSACTION CODE-IMS 

MESSAGE TYPE-SNGLSEG NONRESPONSE 
NORMAL PTY-2 
LIMIT PTY-5 
LIMIT CNT-10 
PROC LMT MSG-1 
PROC LMT SEC-100 
TRANSACTION CODE-DLN 

MESSAGE TYPF-MULTSEG NONRESPONSE 

NORMAL PTY-0 

LIMIT PTY-8 

LIMIT CNT-3 

PRCC LMT MSG-10 

PROC LMT SEC-100 

PSB NAME-NOPSB TYPE-TP 

0ATABASD-DI31PH01 INTENT-SHARE 
TRANSACTION CODE-NOP 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-1 

LIMIT PTY-1 

LIMIT CNT-1 

PRCC LMT MSG-5 

PROC LMT SEC-50 



PSB NAME-SWITCH 



TYPE-TP 



163 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CriOt ADDR1 ADD*2 STMT SCURCE STATEMENT 
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371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
39« 
396 
39 7 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
4C9 
410 
411 
412 
413 

415 
416 
417 
418 
419 
420 



0ATABASF-DI31PH01 INTENT-SHARE 
TRANSACTION CODE-SWI 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NURMAL PTY-l 
LIMIT PTY-7 
LIMIT CNT-1000 
PRCC LMT MSG-5 
PRCC L*T SEC-1 
TRANSACTION COOE-SWIBR 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-5 
LIMIT PTY-5 
LIMIT CNT-4 
PRCC LMT MSG-20 
PROC LMT SEC-100 
TRANSACTION CODE-SWIPASS 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-4 

LIMIT PTY-6 

LIMIT CNT-1 

PROC LMT MSG-20 

PRCC LMT SEC-100 

TRANSACTION CCDE-SHIPR 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-14 
LIMIT PTY-14 
LIMIT CNT-100 
PRCC LMT MSG-20 
PRCC LMT SEC-100 
TRANSACTION CODE-SWITS 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-4 
LIMIT PTY-6 
LIMIT CNT-1 
PROC LMT MSG-20 
PRCC LMT SEC-100 
TRANSACTION COOE-SWN 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-0 

LIMIT PTY-4 

LIMIT CNT-4 

PRCC LMT MSG-5 

PRCC LMT SEC-100 

PSB NAME-HIMARJ01 TYPE-TP 

CATABASE-CI21IRJE INTENT-UPDATE 
TRANSACTION CODE-# 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-10 
LIMIT PTY-14 



r 
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421 
422 
423 
424 
425 
426 
427 
428 
429 
430 

432 
433 
434 
435 
436 
437 
438 
439 
440 

442 
443 
444 
445 
446 
447 
448 
449 
450 

452 
453 
454 
455 
456 
457 
458 
459 
460 

462 
463 
464 
465 
466 
467 
468 
469 
470 



LIMIT CNT-6 

PRCC LMT MSG-65535 

PROC LMT SEC-65535 

TRANSACTION CODE-RJE 

MESSAGE TYPE-MULTSEG NONRESPONSE 

NORMAL PTY-2 

LIMIT PTY-4 

LIMIT CNT-10 

PRCC LMT MSG-65535 

PRCC LMT SEC-65535 

PSB NAME-H1MAJC01 TYPE-TP 

DATABASE-OS40JC01 INTENT-UPDATE 
TRANSACTION CO0E-TPPL1 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-8 
LIMIT PTY-8 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PRCC LMT SEC-65535 

PSB NAME-HIMAJC02 TYPE-TP 

GATABASE-DS40JC01 INTENT-UPOATE 
TRANSACTION C0DE-TPPL2 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-8 
LIMIT PTY-8 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PROC LMT SEC-65535 

PSB NAME-HIMAJC03 TYPE-TP 

DATABASE-D131PH01 INTENT-UPOATE 
TRANSACTION CODE-TUBE 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-8 
LIMIT PTY-8 
LIMIT CNT-65535 
PROC LMT MSG-65535 
PROC LMT SEC-65535 

PSB NAMF-HIBLSK01 TYPE-BATCH 

DATABASE-OI31SK01 INTENT-UPDATE 
DATABASE-DI32SK01 INTENT-UPOATE 
TRANSACTION C00E-SW1 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-0 
LIMIT PTY-0 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
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471 



PROC LMT SEC-65535 



173 
4 74 
475 
476 
477 
478 
479 
480 
481 
4R2 

464 

4H5 

4fi6+»* WARNING 

487 



492 
493 
494 
49 5 
496 
497 
49 8 

500 
501 
502 
503 
504 
505 
506 
507 
508 

510 
511 
512 
513 
514 
515 
516 
517 
518 



PS8 NAME-HIBASK01 TYPE-BATCH 

DATABASE-DI31SK01 INTENT-UPDATE 
DATABASE-D132SK01 INTENT-UPDATE 
TRANSACTION C0DE-SW2 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-0 
LIMIT PTY-0 
LIMIT CNT-1000 
PRCC LMT MSG-65535 
PRCC LMT SEC-65535 

PSB NAME-HS3ASK01 TYPF-BATCH 

CATABASE-0S31SK01 INTENT-UPDATE 

G048 NO TRANSACT SPECIFICATIONS FOR PSB-HSBASK01 

PSB NAME-ENQ0SKO1 TYPE-TP 

G047 NO DATABASE SPECIFICATIONS FOR PSB-ENOOSKOl 
TRANSACTION CODE-ENO 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-8 
LI PI T PTY-8 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PRCC LMT SEC-65535 

PSB NAME-HITASK01 TYPE-TP 

DATABASE-CI31SK01 INTENT -UPDATE 
TRANSACTION CODE-SKI 1 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-8 
LIMIT PTY-8 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PROC LMT SEC-65535 

PSB NAME-HITASK02 TYPE-TP 

0ATABASE-DI32SK01 INTENT-UPDATE 
TRANSACTION C0DE-SKI2 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-8 
LIMIT PTY-8 
LIMIT CNT-65535 
PROC LMT MSG-65535 
PROC LMT SEC-65535 



PSB NAME-HSTASK01 



TYPE-TP 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 
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521 
522 
523 
524 
525 
526 
527 
528 



DATABASE-DS31SK01 INTENT-UPDATE 
TRANSACTION C00E-SKH1 

MESSAGE TYPE-MULTSEG NONRESPONSE 
NORMAL PTY-8 
LIMIT PTY-8 
LIMIT CNT-65535 
PRCC LMT MSG-65535 
PRCC LMT SEC-65535 
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531 
532 
533 
534 
535 
536 
537 
538 
539 
SAO 
5*1 
542 
543 



UPDATE ACTIVITY WILL RE LOGGED 
FDR THE FOLLOWING DATABASES: 

DI21PART 
0U1PHO1 
0I31PH02 
DI21IRJE 
DS40JC01 
01 USKOt 
0I12SK01 
0S31SKO1 

k*«*»»«*lli**4*«4******«'************* 



545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 



► THE FOLLOWING TRANSACTION COOES 
» WILL NAT BE REPROCESSED BY 

» DATABASE RECOVERY: 

» DFS 

► NOP 

* SM 

* SWIBR 

* SHIPASS 

* SWIPR 
» SUITS 

► SWN 



*•*«***«•*»•* 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CODE A0CR1 ADDR2 



STMT 
560 
562 
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572 
573 



5 77 
578 
579 
5 80 
581 
582 



595 
5<56 



598 
599 



601 
602 



607 
608 
609 



SOURCE STATEMENT 

*, COMMUNICATION SPECIFICATIONS 

LINE-1 SYSTEM/360 OPERATOR'S CONSOLE 

TERMINAL-0 AOOR-N/A FEATGRP-N/A 
LOGICAL NAME-WTCR FEATGRP-N/A 

FEAT-STACTL NONSWITCH 



TERMINAL-1 ADDR*E2 FEATGRP-STANDARD 

LOGICAL NAME-L2740S2 FEATGRP-STANDARD 

LINE-3 FEAT-PCLL ADDR-023 

TERMINAL-2 A0DR=E2 FEATGRP-STANDARD 

LOGICAL NAME-MASTER FEATGRP-STANDARD 

* MASTER TERMINAL * 

LOGICAL NAME-L2740S1 FEATGRP-STANOARD 

LINE-4 FEAT-PCLL ADDR-024 

TERMINAL-3 ADDR*E2 FEATGRP-STANDARD 

LOGICAL NAME-L2740SM1 FEATGRP-STANDARD 

TERMINAL-4 AC0R»E4 FEATGRP-STANDARD 

LOGICAL NAME-L2740SM2 FEATGRP-STANDARD 



LINEGRP-2 

LINE-5 



FEAT-TRANSCTL SHITCH6D 



FEAT-AUTOANS ADDR-026 
ZONE COCE IS 



TERMINAL-5 A0DR=E2 FEATGRP-STANDARD 

LOGICAL NAME-IN0UIRY1 FEATGRP-STANDARD 



OCNAKE-DD1050A 
UNITYPF-1050 



FEAT-STACTL SHITCHED 



TERMINAL-6 AD0R«E2 FEATGRP-STANDARD 

LOGICAL NAME-INQUIRY2 FEATGRP-STANOARD 
COMPT-0 
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1MS/U0 SYSTEM DEFINITION SPECIFICATIONS 



LT. OSJFCT r.CPP AMiRl AODR2 STIH SOURCE STATEMENT 
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611 
612 
613 

h» 
615 

617 
618 
619 

621 
622 
623 
624 



629 
630 
631 
632 
633 
634 
635 

637 
638 



642 
643 
644 
645 
646 
64 7 
648 
649 
650 
651 
652 
653 
654 

656 
657 



LINE-7 FEAT-AUTOANS ADDR-OOO 

•a*«»* *«***» **»»***«•*****•»** 

« LINE. IS A DIAL ANS POOL 
* ZONE CODE IS . 

A***************************** 

TERMINAL-7 ADDR-00 FEATGRP-STANOARD 

LOGICAL NAME-CAROL FEATGRP-STANDARO 
COMPT-0 

TERMINAL-8 AOORsOO FEATGRP-STANOARD 

LOGICAL NAME-ELEANOR FEATGRP-STANDARO 

COMPT-0 
LOGICAL NAME-DAN FEATGRP-STANDARD 

COMPT-0 
LOGICAL NAME-HCWARC FEATGRP-STANDARO 

COMPT-0 

TERMINAL-9 ACCR'OO FEATGRP-STANDARD 

LOGICAL NAME-SHARRON FEATGRP-STANDARO 

COMPT-0 
LOGICAL NAME-RICHARC FEATGRP-STANDARO 

CUMPT-0 
LOGICAL NAME-JOE FEATGRP-STANDARO 

COMPT-0 

LINEGRP-4 OONAME-D01050 FEAT-STACTL NONSHI TCH 
UNITYPE-105Q 

LINE-E FEAT-PCLL ADOR-02A 

TERMINAL-10 ADDR»F2 -FEATGRP-STANOARD 

LOGICAL NAME-PRINTER- FEATGRP-STANOARD 

COWPT-PTRl 
LOGICAL NAME-T2T80 FEATGRP-STANOARD 

C0MPT-PTR1 
LOGICAL NAMF-TAPEPNCH FEATGRP-STANOARD 

CQMPT-PTPCH 
LOGICAL NAME-MC0EL2 FEATGRP-STANOARD 

CQMPT-PTPCH 
LOGICAL NAPE-CARDPNCH FEATGRP-STANDARD 

COMPT-3 
LOGICAL NAME-MO0EL2M FEATGRP-'STANOARD 

COMPT-3 

LlNEGRP-5 DONAME-DD2260T FEAT-STACTL NONSWITCH 
UNITYPE-2260 



LINE-"; FEAT-PCLL 



I"S/^fO SYSTEM DEFINITION SPECIFICATIONS 



Lrr. GejFCT CODE A00R1 AD0H2 stmt SOURCE STATEMENT 
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661 
662 
663 

665 
666 
667 
668 

67C 
671 
672 

674 
675 
676 



TERMINAL-U AODR-AO FEATGRP-STANDARO 
CONTROL UNIT-40 
LOGICAL NAME-BILL FEATGRP-STANOARD 

TERMINAL-12 ADDR'Al FEATGRP-STANOARD 
CONTROL UNIT-40 
LOGICAL NAME-LEONARO FEATGRP-STANOARD 
LOGICAL NAME-ERNE FEATGRP-STANDARD 

TERMINAL-13 AC0R=A2 FEATGRP-STANDARO 
CONTROL UNIT-40 
LOGICAL NAME-CARL FEATGRP-STANDARO 

TERMINAL-14 A0DR«A3 FEATGRP-STANOARD 
CONTROL UNJT-40 
LOGICAL NAME-BUD FEATGRP-STANDARD 
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IMS/760 SYSTEM DEFINITION SPEC 1FI CA TIONS 



tr.r object cr.ot 



ACJOR1 AO0R2 STMT SOURCE STATEMENT 



PAGE 17 
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681 
682 
683 
661 
6S5 
686 
687 
6BB 
689 

691 
692 
693 
694 
6S5 
696 
697 
6Se 
699 



7C1 
702 

704 
705 
706 

708 
7C9 

711 
712 

714 
715 

717 
718 



*tIMS/360 OATA SET SPECIFICATIONS 



QCR DATA SETS! 

QCRIN ODNAME-INQCR 

OSNAMF-ICS.IQCRDSET 

UNIT-2314 
SERIAL-IMSDBS 
QCRCUT OCNAME-OUTgCR 

DSNAME-ICS.OOCROSET 

UNIT-2314 
SFRIAL-IMSDBS 

MESSAGE QUEOUE OATA SETS: 
MSGIN CCNAME-INMSG 

0SNAME-1CS.IMSG0SET 

UNIT-2314 
SERIAL-IMSDBS 
MSGOUT DDNAME-OUTMSG 

DSNAMF.-ICS.OMSGDSET 

UNIT-2314 
SFRIAL-IMSOBS 



RESLIB SPECIFICATION: 

DSNAME-ICS.CLCO VOLUME- IMSLIB UNIT-2314 

MACLIB SPECIFICATION: 

DSNAME-ICS.BMAC VOLUME- IMSLIB 
UNIT-2314 COPY-ALL 

PROCUB SPECIFICATION: 

DSNAME-ICS.PRCCLIP VOLUME-STORGE UNIT-2314 

PGMLIB SPECIFICATICN: 

OSNAME-ICS.CLCO VOLUME- IMSLIB UNIT-2314 

PSBLIB SPECIFICATICN: 

OSNAME-ICS.PSBLIB VOLUME'-IMSLIB UMT-2314 

DBOLIB SPECIFICATION! 

OSNAME-ICS.DBDLIB VOLUME-IMSLI B UNIT-2314 



IMS/36C SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CCOE ADCR1 A0DR2 STMT SOURCE STATEMENT 
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722 + 


PUNCH • 


723+ 


PUNCH • 


724+ 


PUNCH • 


725 + 


PUNCH • 


726+ 
727+ 


PUNCH • 


PUNCH • 


728+ 


PUNCH • 


729 + 


PUNCH ' 


730+ 


PUNCH * 


731 + 


PUNCH ' 


73? + 


PMNCH • 


733+ 


PUNCH • 


734 + 


PUNCH < 


735 + 


PUNCH < 


736+ 


PUNCH • 


737+ 


PUNCH • 


738 + 


PUNCH • 


739+ 


PUNCH ' 


740 + 


PUNCH ■ 


741 + 


PUNCH • 


74 2+ 


PUNCH • 


743 + 


PUNCH • 


744+ 


PUNCH • 


745+ 


PUNCH • 


746 + 


PUNCH • 


747+ 


PUNCH • 


748 + 


PUNCH • 


749 + 


PUNCH • 


750+ 


PUNCH • 


751 + 


PUNCH • 


752+ 


PUNCH • 


753+ 


PUNCH « 


754 + 


PUNCH • 


755+ 


PUNCH ■ 


756+ 


PUNCH « 


757+ 


PUNCH ' 


758+ 


PUNCH ■ 


759 + 
760+ 


• PUNCH • 


PUNCH • 


761 + 


PUNCH • 


762+ 


PUNCH • 


763+ 


PUNCH ' 


764+ 


PUNCH • 


765+ 


PUNCH • 


766+ 


PUNCH • 


767+ 


PUNCH • 



PUNCH '//IMSGEN JOB 1,'MMSGEN STAGE II ",MSGCLASS*A,MSGLE VEL=X 
1' 
//STEP1 EXEC PGM*I£HM0VE,REGI0N*100K« 
//SYSPRINT OC SYSOUT=A' 

//SYSUT1 OD CSNAME=TEMPSET,DISP=(OLC,PASS)' 
//0C2 OD DSNAME=IMS. LOAD, DlSP=(OLD, PASS)' 
//CD3 DO VOLUME-SER*IMSLlB f 01SP=lOLD,PASS), X 

CONTINUE' 
// DSNAME*ICS.CL00,UNIT=2314« 

//SYSIN DO *' 

COPY PDS*l*S. LOAD, TO* 2314*1 MSL IB, RENAME* ICS.CLOO' 
SELECT MEMBER*DFSIRAO0 REGION ANALYZER MODULE* 



SELECT MEMBER*OFSIRCC0 

SELECT MEMBER=OFSIPCCC 

SELECT MEM8ER*DFSIPR00 

SELECT MEMBFR*DFSILNKO 

SELECT MEMBER-DFSILIOO 

SELECT MEMBER*DFSIOLRO 

SELECT MFM8ER=DFS1DLI0 

SELECT MEMBER=DFSI0LO0 

SELECT MEMBER*DFSIOLEO 

SELECT M£MBER*DFSIDLNO 

SELECT MEM8ER=DFSI0LH0 

SELECT MEMBER*DFSIOLTO 

SELECT MEMBER=DFSISNAP 

SELECT MEMBER=DFSIISMO 

SELECT MEMBER=DFSIWKNO 

SELECT MEMBER*DFS10LK0 

SELECT MEMBER»0FSIOS20 

SELECT MEMBER=DFSIOS30 

SELECT MEMBER=DFSIOS60 

SELECT MEMBER*OFSTOSlO 

SELECT MEMBER*DFSISMMO 

SELECT MEMBER*DFSIOLOO 

SELECT MEMBER»OFSI(!LCC 

SELECT MEMBER=DFSID8A0 

SELECT MEMBER*DFSIBKBO 

SELECT MEM8£R=DFSIINL0 

SELECT MEMBER=DFSIIN10 

SELECT MEMBER=DFSIIN20 

SELECT MEMBER*! IOFSIOCE0, IGG01928I ) 
PENOAGE' 

SELECT ME*BER*OFSIXXXO 

SELECT MEMBER-DFSISVVO 

SELECT MEMBER'DFSIOSPO 

SELECT MEMBER*DFSIRSTO 

SELECT MEMBER'OFSIRSIO 

SELECT MEMBER*OFSICPOO 

SELECT MEMBER*DFSIINTO 

SELECT MEM8ER=0FSIINOC 



REGION CONTROLLER MODULE' 
PROG. CONTROLLER MODULE' 
PROG. REQUEST HANDLER' 
IMS/360 LINKAGE EDITOR* 
DL/I LANGUAGE INTERFACE' 
DL/I RETRIEVE MODULE' 
OL/I INSERT MODULE' 
OL/I DELETE/REPLACE MODULE' 
DL/I DATA BASE LOAD MODULE" 
DL/I BATCH INITIALIZATION' 
DL/I HSAM MODULE' 
DL/I PROGRAM TEST MODULE' 
DL/I BLOCK SNAP ROUTINE" 
DL/I ISAM SIMULATOR' 
DL/I WRTTE KEY NEW MODULE' 
DL/I BLOCK LOADER MODULE' 
OSAM REAC/WRITE MODULE' 
OSAM CHECK ROUTINE' 
OSAM OPEN/CLOSE(OVFHI' 
CSAM OPEN ROUTINE' 
STORAGE MANAGEMENT MODULE' 
DL/I OPEN MODULE' 
DL/I CLCSE MODULE' 
DL'/I BATCH ANALYZER' 
OL/I BATCH BLOCK HODULE' 
1NIT - MODULE LOADER' 
1NIT - JOBLIB MODULE LOADER' 
INIT - SVCLIB MODULE LOAOER* 
OSAM CH. END APX 



RESIDENT MOOULE MAP' 

INTER-REGION SVC RTNES' 

IMS SUBTASK DISPATCHER' 

IMS RESTART' 

RESTART INITIALIZATION' 

IMS CHECKPOINT" 

INIT - CONTROL ££ MISC" 

INIT - DMB DIRECTORY' 
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IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



IOC OBJECT CCOE ADDR1 ADOR2 STMT SOURCE STATEMENT 
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768+ 


PUNCH 


SELECT 


MEMBER«DFSIINSO 


769 + 


PUNCH 


SELECT 


MEMBER'DFSIINQC 


770+ 


PUNCH 


SELECT 


MEMPER»0FSI1N(>0 


771 + 


PUNCH 


SELECT 


MEMBER-DFSIINXO 


772 + 


PUNCH 


SELECT 


MEMBER-DFSISMNC 


77 3* 


PUNCH 


SELECT 


MEMBER-flFSICBLO 


774 + 


PUNCH 


SELECT 


MEMBER'DFSIBDRO 


775* 


PUNCH 


SELECT 


MEMBER-DFSlDflPO 


776 + 


PUNCH 


SELECT 


KEMEEK'DFSIOBHO 


777 + 


PUNCH 


SELECT 


MEMBER'OFSIASIO 


773 + 


PUNCH 


SELECT 


MEMBER'DFSIASTO 


779 + 


PUNCH 


SELECT 


MEMRER'DFSICLIO 


780 + 


PUNCH 


SELECT 


MEMRER-DFSICLOC 


781 + 


PUNCH 


SELECT 


MEMBER-DFSICLPO 


782+ 


PUNCH 


SELECT 


MEMBER-OFSICLRO 


783 + 


PUNCH 


SELECT 


MEMBFR-OFSICLMO 


784 + 


PUNCH 


SELECT 


MEMBER-DFSICM10 


785 + 


PUNCH 


SELECT 


KEMBER-DFSICLTO 


786+ 


PUNCH 


SELECT 


MEMBER=OFSICLBC 


767+ 


PUNCH 


SELFCT 


KEMBER'DFSICLFO 


788 + 


PUNCH 


SELECT 


"EMBER'DFSICLSC 


789* 


PUNCH 


SELECT 


MEMBER- CFSICLXO 


790+ 


PUNCH 


SELECT 


MEMBER=DFSICL10 


791 + 


PUNCH 


SELECT 


MEMBER-0FSICL20 


792+ 


PUNCH 


SELECT 


MEMBER'OFSICLAO 


793 + 


PUNCH 


SELFCT 


MEMBER=DFSICL30 


79* + 


PUNCH 


SELECT 


MEMBfcR»DFSICL<tO 


795+ 


PUNCH 


SELECT 


MEMBER«CFS1CL50 


796 + 


PUNCH 


SELECT 


MEM3ER-DFSICL60 


797+ 


PUNCH 


SELECT 


MEM»ER*DFSICL7C 


798 + 


PUNCH 


SELECT 


MEKBER-DFSICL80 


799 + 


PUNCH 


SELECT 


MEMBER»DFSICL9C 


800+ 


PUNCH 


SELECT 


MEMBER=0FSICLEO 


801 + 


PUNCH 


SELECT 


MEMBER-CFSICLOO 


802 + 


PUNCH 


SELECT 


MEMBtR«DFSID°10 


803+ 


PUNCH 


SELECT 


MEMBER-DFSI0P20 


804 + 


PUNCH 


SELECT 


MEMBER-0FSI0P3C 


805 + 


PUNCH 


SELECT 


MEM8ER-DFS10P40 


806+ 


PUNCH 


SELECT 


MEMBER-DFS10P50 


807+ 


PUNCH 


SELECT 


MEMBER*DFSI')P60 


808+ 


PUNCH 


SELECT 


M£MB6R=DFSIOP70 


809 + 


PUNCH 


SELECT 


MEM9ER»DFSIRC10 


810 + 


PUNCH 


SELECT 


MEM8ER=UFSI0LAC 


811 + 


PUNCH 


SELECT 


MEMBER=CFSIDLMO 


812+ 


PUNCH 


SELECT 


MEMBER'DFSIIDEO 


813 + 


PUNCH 


SELECT 


MEMBER'DFSIIENO 


814+ 


PUNCH 


SELECT 


MEMBER»DFSIMBEO 


8 15 + 


PUNCH 


SELECT 


MEMBER'DFSIMIOO 


816 + 


PUNCH 


SELECT 


MEMBER<=(1FSIPRE0 


817 + 


PUNCH 


SELECT 


MEMBER«DFSIL000 



INIT - STORAGE POOL MGMT' 
INIT - QUEUE MANAGEMENT' 
INIT - COMMUNICATIONS* 
INIT - PESIOENT XFR CTL 1 
STORAGE PCOL MGMTIO/LI" 
DATABASE LOGGER MODULE' 
DATABASE RECOVERY MODULE' 
DB RECOVERY PSB MODULE' 
DBCUMP - DBO ANALYZER' 
SCHEDULER - INITIATION' 
SCHEDULER - TERMINATION' 
COMM INPUT PROCESSOR' 
CCMM CUTFUT PROCESSOR' 
COMMAND MSGE PROCESSOR' 
MESSAGE FCUTER' 
MESSAGE GENERATOR' 
COMM MESSAGE TABLE' 
COMM TRANSLATION MODULE* 
COMM BACKSPACE EDIT' 
SYMBOLIC DEST FINDER' 
SECURITY PROCESSOR' 
RESET POLL' 
/BROADCAST COMMAND' 
/CHE /RES COMMAND' 
/I AM COMMAND' 
EDIT CCMAND MSGE* 
/STA /STO /PST COMMAND' 
/TES /END /EXC COMMAND' 
/CHANGE CCMHANO' 
/ASSIGN COMMAND' 
/DELETE COMMAND' 
/LOCK /UNLOCK COM"AND' 
/SET /RESET COMMANDS' 
/DISPLAY CONTROL MCDULE' 

" STATUS' 

" ACTIVE' 

» QUEUES' 

" TRAN C£ LTERM' 

" PGM EC DATABASE" 

" LINE £t PTERM' 

" ASSIGNMENT' 

" MASTER' 
OL/I CALL ANALYZER' 
DL/I BLOCK MOVER* 
BLOCK CEQUEUE' 
BLOCK ENQUEUE' 
SCHEDULER - SM9 ENQUEUE' 
SCHEDULER - SM9 CEQUEUE* 
MSGE AND LOG PREFIX BLDR* 
WRITE LOG ROUTINE* 



IMS/36C SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CUDE ADDR1 ADDR2 STMT SOURCE STATEMENT 
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818 + 


PUNCH • 


819+ 


PUNCH • 


820+ 


PUNCH * 


821 + 


PUNCH • 


822+ 


PUNCH ' 


823 + 


PUNCH • 


824+ 


PUNCH ' 


825+ 


PUNCH • 


826 + 


PUNCH • 


827 + 


PUNCH ' 


828 + 


PUNCH • 


829+ 


PUNCH • 


830+ 


PUNCH • 


831 + 


PUNCH • 


832+ 


PUNCH • 


833 + 


PUNCH ' 


834+ 


PUNCH • 


835+ 


PUNCH • 


836+ 


PUNCH • 


837 + 


PUNCH • 


838+ 


PUNCH ■ 


839+ 


PUNCH • 


840+ 


PUNCH • 


841+ 


PUNCH • 


842 + 


PUNCH ' 


843+ 


PUNCH • 


844+ 


PUNCH • 


845+ 


PUNCH ■ 


846 + 


PUNCH • 


847+ 


PUNCH • 


848+ 


PUNCH ■ 


849+ 


PUNCH • 


850 + 


PUNCH • 


851+ 


PUNCH ■ 


852+ 


PUNCH ' 


85 3 + 


PUNCH • 


854+ 


PUNCH • 


855+ 


PUNCH • 


856 + 


PUNCH • 


857 + 


PUNCH ' 


858+ 


PUNCH • 


859+ 


PUNCH ' 


860+ - 


PUNCH ■ 


861+ 


PUNCH ■ 


862+ 


PUNCH- ' 



SELECT MEMBER*DFSISTPC 
SELECT MEMBER=DFSIPTPO 
SELECT MEMBER=OFSIASEO 
SELECT MEMBER*DFSIRWQO 
SELECT MENBER=DFSIQMSO 
SELECT MEM8ER=DFSIST01 
SELECT MEMBER=DFSIST02 
SELECT MEMBER=0FSIST03 
SELECT MEMBER=OFSIST04 
SELECT MEMBER=DFSISMIO 
SELECT CEMBER-DFSISMPO 



START REGION' 
STOP REGION' 
SIM REGION TERMINATION" 
READ/WRITE MSGE QUEUE' 
QUEUE REUSE MODULE' 
IMS STATISTICS MODULE' 
IMS STATISTICS MODULE* 
IMS STATISTICS MODULE' 
IMS STATISTICS MODULE' 
SECURITY MAINT INIT* 
SECURITY MAINT" 

•RENT,NCAL,XREF,LIST**,REGIX 



//STEP2 EXEC PGM-1EWL.PARM- 
0N=110K« 
//SYSPRINT OD SYSOtU=A' 
//SYSLIN DO DCNAME=SYSIN« 
//SYSLMOD DO V0LUCE*SER»IMSLIBtDISP»(0LD,PASS1 ( X 

CONTINUE' 
// DSNACE=ICS.CL0D,UNIT»2314' 

//SYSOBJ DD DSNAME=1MS. LOAD, OlSP'IOLD, PASS)' 
//SYSUT1 DD UNIT=(SYSUA,SEP»ISYSLIN,SYSLMOO)),DISP*<X 
DELETE), X' 

// SPACF=(17CC,(1C0,50I,RLSE)' 

//SYSIN 00 *• 

CHANGE IGC255IIGC243)' 

INCLUDE SYSOBJ(OFSinsVO) OSAM SVC ROUTINE' 

NAME IGC243IR)' 
/*■ 

//STEP3 EXEC PGM=IEHMOVE,REGION«100K' 
//SYSPRINT DC SYSOUT=A' 

//SYSUT1 DO OSNAME=7EMPSET,DISP»(CL0,PASS)' 
//r,n? DD DSNAHE'IMS.GENLIB.OISP-IOLDtPASS)' 
//0D3 no VCLUME=SER=IMSLIB,DISP=CLn, X 

CONTINUE' 
// CSNAME=ICS.BMAC,UNIT=2314' 

//SYSIN DD *• 

COPY P0S=lM$.GENLIB,TO=2314-IfSLIB,RENAME=ICS.BM«C' 
/*• 

//STEP4 EXEC PGM=1EBUPDTE,PARM=NEW,REG1CN=90K* 
//SYSPRINT DD SYSOUT=A' 
//SYSUT2 DO VOLUCE*SER=STORGE»OISP»(OLD,PASS), X 

CONTINUE' 
// DSNAME=lCS.PR0CLIB.UNtT-2314' 

//SYSIN OD OATA' 
./ ADD NAME*0L1TCBL« 

INCLUDE SYSCBJ(DFSILIOO)' 

ENTRY OLITCBL' 
./ ADD NAME=OLITPLI • 

INCLUDE SYSCBJIDFSILIOOI* 

ENTRY IHESAPD' 
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IMS/?*C SYSTEM DEFINITION SPFCIFICATICNS 



ICC OBJECT r.Cnt ACDR1 AD0i<2 STMT 

863 + 
864+ 
865+ 
866* 
867+ 



870+ 

871+ 

+ 

872+ 

873 + 

874 + 
875+ 
876+ 

+ 
877 + 

+ 
878+ 

+ 
879+ 

+ 
880 + 

+ 
881+ 

+ 
882+ 

+ 
883 + 

+ 
884+ 

+ 
885+ 

+ 
886 + 
887+ 
888 + 
889+ 

890 + 

891 + 

892 + 

893 + 
894+ 



SOURCE STATEMENT 
./ 
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PUNCH './ ACD NAME"0LIBATCH' 

PUNCH •./ NUMBER NEW1=00000010,INCR=00000010' 

PUNCH •// PROC PSB=TEMPNAME« 

PUNCH '//G EXEC PGM=DFSIRC00,PARM="3,E£PSB",REGION=12OK' 

PUNCH '//IMS DO VCLUME-SER=lMSLJB,OISP«SHR, X 

CONTINUE' 
PUNCH •// CSNAME"ICS.PSBLI8,UNIT«2314^ 

PUNCH •// OD VOLUME»SER=IKSLIB,DISP=SHR, X 

CONTINUE' 
PUNCH •// 0SNAPE=ICS.DB0LIB,UNIT=2314' 

PUNCH '//SYSUDUMP DO SYSOUT'A, SPACF= ( 605 . 1 500, 500) , RISE, , ROUNDX 

I? X' 

PUNCH •// 0CB«IRECFM«FBA,LRECL»121,BLKSIZE=605)' 

PUNCH './ ADO NAME'IMSCOBOL' 

PUNCH './ NUMBER NEW1=00000010, INCR"00000010' 

PUNCH •// PROC MBR=,PAGES=60' 

PUNCH V/C EXEC PGM* IE0.CBL00,PARM«"SIZE«110000,HNECNT=5X 

0",REGJ0N"126K' 
PUNCH '//SYSLIN OD DSNAXE=E££ELIN,DI SP»(H00,PASS I ,UNIT*SYSDAX 

,DCB=(LRECL=60, X< 
PUNCH •// RECF»<=FB,BLKSIZE=A00J,SPACE=(CYL,(4,1),RX 

LSE)' 
PUNCH '//SYSPRINT OD SYSOUT"A, DC D=(RECFM=FBA,LRECL=l2l .BLKSI ZEX 

=605), X' 

PUNCH '// SPACE=(605,(££PAGES.O,££PAGESI,RLSE,,RCUX 

NO)' 
PUNCH '//SYSUT1 DD 

10,1), RISE)* 
PUNCH '//SYSUT2 00 

lO.D.RLSE)' 
PUNCH '//SYSUT3 DO 

10,l),RLSE)' 
PUNCH '//SYSUT4 DD 

lO.ll.RLSE)' 
PUNCH '//L EXEC PGM=0FSILNKO,PARM" 

N=100K, X' 

PUNCH '// C0NC=(4,LT,C)' 

PUNCH '//SYSLIB DD DSNAKE»SYS1 .COBL IB,OISP=SHR • 
PUNCH •// DD DSNAME=SYS1.PL1LIB,DISP=SHR' 

PUNCH '//SYSOBJ DO DSNAME" ICS .CLOD, DISP-SHR' 
PUNCH '//SYSLIN 00 DSNAME=£G££HN,OISP"<CLD,CELETE)' 
PUNCH •// DO V0LUME"SER=ST0RGE,01SP=SHR, X 

CONTINUE' 
PUNCH •// 0SNANE = ICS.PR0CLie(CHTCBL)«UNlT=2314' 

PUNCH '// DD 0DNAME"SYSIN' 

PUNCH '//SYSLMOD DO VCLU>"E=SER* IMSLIB, CISP=SHR, X 

CONTINUE' 
PUNCH •// DSNAME* ICS. CL00(£6MBR),UNIT=2314' 

PUNCH '//SYSPRINT DD SYS0UT=A,0CB»(RECFM"FBA,LRECL=121, BLKSIZEX 

"6051, X' 



UNIT«SYSDA,CISP-(NEW,CELETE),SPACE-(CYL, (X 
UNIT=SYSD A, DISP=INEW, DELETE f, SPACE" (CYL, < X 
UNI T=SY SO A, 01 SP=( NEW, DELETE), SPACE" (CYL.IX 
UNI T=SYSDA, 01 SP"( NEW, DELETE), SPACE" (CYL.IX 
■XREF, LIST, LET ".REGIOX 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CCDE A0DH1 AD0R2 STMT SOURCE STATEMENT 
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897+ 
898+ 

899+ 

900 + 

901 + 
902+ 

+ 

903 + 

904 + 

905 + 
906+ 

+ 
907+ 
908+ 

+ 
9C9+ 

910 + 
+ 

911 + 

912 + 
+ 

913* 
914+ 
915+ 
916+ 

917 + 
+ 

918 + 
919+ 
920+ 

+ 
921 + 
922+ 

♦ 
923+ 

924 + 

925 + 
+ 

9Z6+ 
9? 7+ 
928+ 
929 + 

♦ 
930+ 

+ 
931+ 

■♦ 
932+ 



PUNCH • // 

PUNCH '//SYSUT1 DO 
10,1),RLSE1' 



SPACE=(605,CEPAGES.0,RLSE.,R0UNDI' 
UNIT«SYSDA,DISP"INEW,CELETE),SPACE"<CYL,<X 



PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 



./ 
./ 
II 

//C EXEC 
0MACR0,0PT=1' ', 

II 

//SYSUT1 DD 
NDI, 
'II 

//SYSUT3 OD 
NDI, 
'// 

//SYSPRINT DD 

"VBA), 

II 

//SYSLIN DO 
BLKSIZE=80, 

II 

III EXEC 

(4,LT,CI, 

II 

//SYSLIB OD 



ACD NAHEMMSPLI' 
NUMBER NEW1"10,INCR»10' 
PROC H8R=,PAGES=50« 

PG*«IEHAA,PARM="XREF,ATR,LOA0,NOD£CK,NX 



PEGICN=114K' 

UNI T«SYSCA, SPACE" (1024, (60, 60 ),RLSE»,ROUX 



CCB»(BLKSIZE»1024),DISP« (NEW, PASS)' 

UNI T=SYSDA, SPACE" (1024, (60, 60 ),RLSE, ,ROUX 



DC8*(BLKSIZE»1024),D!SP={NEW,PASS)» 
SYSOUT=A,OCBs(LRECL»125,BLKSIZE«629iRECFX 



SPACE" (605, (E£PAGES f O,££PAGES),RLSE)' 
UNIT=SYSDA,SPACE»(80,(250,80) ,RLSE) ,0CB"X 



OISP"(NEW,PASS)' 

PGM=DFSILNKO,PARM»"XREF,LlST,LET« 
X' 



,CONOX 



REGICN=100K' 

0SNAME»SYS1.PL1LIB,DISP»SHR' 
// DD 0SNAME=SYS1.C0BLIB,DISP=SHR' 

•//SYSLIN DD DSNAME"*, C. SYSLIN, 0ISP«(0LD, DELETE)' 

VOLUME=SER=STORGE,D1SP«SHR, X 

CONTINUE' 

// DSNAPE"ICS.PR0CLIB<DLITPLI),UNIT=2314' 

>// OD ODNAME=SYSIN' 

//SYSLMOD DD VOLUKE»SFR=ICSLIB,0ISP«SHR, X 

CONTINUE' 
// OSNAME" ICS. CLOD(££MBR>, UNIT" 2314' 

//SYSPRINT OD SYS0UT=A,DCB«URECL«121,BLKSUE»605,RECFX 
l«FBA), X' 

// •SPACE"(605,(££PAGES.0,££PAGES),RLSEI' 

//SYSOBJ DO DSNAME«1CS.CL0D,0ISP»SHR' 

7/SYSUTl OD UNIT=SYSCA,DISP"(NEW, DELETE), SPACE=(CYL,X 

5,1),RLSE)« 

/ ADO NAME=IMSCOBG0' 
./ NUMBER NEW1=00000010,INCR=00000010' 
// PRCC MBR",PAGES=60" 

'//C EXEC PGM"IEUCBLOO,PARM«"SIZE"110000,LINECNT«5X 
i",REGI0N»126K« 

//SYSLIN DD DSNA*E"G£EELIN,DISP=(P0D,PASS),UN1T»SYSCAX 
DCB"(LRECL=80, X' 

RECFM«FB,BLKSIZE"400),SPACE«(CYL,(4,1),RX 
LSE)' 
•//SYSPRINT 00 SYS0UT«A,DCB»(RECFM«FBA,LRECL-121,BLKSIZEX 
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IMS/36Q SYSTEM CEFINITION SPECIFICATIONS 



LCC OBJECT CODE A0DR1 AD0R2 STMT 

♦ 
933 + 

+ 
934+ 

+ 
935* 

+ 
936* 

+ 
937* 

+ 
938+ 

+ 
939* 
940* 
941 + 
942+ 
943+ 

944 + 
♦ 

945 + 
946+ 
947+ 



95C+ 
951 + 



953 + 
954+ 

+ 
955+ 
956+ 

+ 
957+ 
958+ 

+ 
959+ 

+ 
960+ 

961 + 

962 + 
963+ 
964+ 

+ 
96 5+ 



SOURCE STATEMENT 

■605) t 
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PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 



PUNCH 
PUNCH 



PUNCH 
PUNCH 



PUNCH 
PUNCH 



// 



SPACF-(6C5,(CGPAGES.0,CtPAGESI ,RLSE,,RCUX 
UNIT=SYSDA,D1SP«(NEW,CELETE),SPACE=(CYL,(X 
UNIT>SYSC»,CISP»(NEW,CELETE),SP»CE-(CYL.( X 
UNIT' SYSOA.OISP" (NEW, DELETE) ,SPACE«(CYL tlX 
UMT«SYSOA,DISP»(NEW,DELFTEI,SPACE«<CYL,(X 
•XREF, LIST, LET", REGIOX 



II 

//SYSLIB DO 



//SYSOBJ CC 
//SYSLIN DO 



NO)' 

//SYSUT1 DC 
10,1),RLSF.I' 
//SYSUT2 DC 
O.ll.RLSEI' 
//SYSUT3 DO 
0,1),RLSE)< 
//SYSUT4 DD 
0,1),RLSEI' 

III EXEC PGM»DFSILKKO,PARM« 

l»100K, X' 

CON0»(4,LT,C)' 
OSNAME«SYS1.COBLIH,DISP»SHR' 
DSNAHE'SYS1.PL1LIB,DISP»SHR' 
DSNAME»ICS.CLC0,01SP»SHR' 
DSNAMf»£C£6LIN, 01 SP-ICLO, DELETE)' 
VOLUMfc«SER«STORGE,DlSP»SHR, X 

CONTINUE' 

DSNAME=ICS.PR0CLIB(tHTCBL>,UNIT»2314' 
OCNAME=SYSIN" 
//SYSLMDO DD VCLUMf*SER«IMSLIB,CtSP»SHR, X 

CONTINUE' 
// CSNAME- I CS. CLOD UtMBR), UNIT» 2314' 

//SYSPRINT DD SYS0LTs.A,DC3»(RECFM»FBA,LRECL*l21,BLKSIZFX 
605), X' 

// SPAC E« ( 605, CCP AGES. O.RLSE,, ROUND)' 

//SYSUT1 DO UNIT-SYSDA, 01 SP-INEW, DELETE), SPACE=(CYL.(X 
10, II. RLSE)' 
lid EXEC PGM=OFSIRCOO,PARM»"3,£SMBR",R?GION-150X 

,COND»(0,LT), X' 

// TIME=2« 

VOLUMC»SCR=IMSLIB,CISP=SHR, X 

CONTINUE' 

CSNAME*ICS.PSBLJ8,UNIT»2314' 
VC]LUME*SER»IMSLIB,DISP»SHR, X 

CONTINUE' 

DSNAME»ICS.0BDLIB,UNIT»2314' 
SYSOUT=A,SPACE»(CYL, 11,11) ,OCB* I LRECL» 13X 



// 



//IMS 
// 



//SYSOUT DD 
,RECF1»FA)' 

PUNCH '//SYSUDUMP DO SYS0UT*A,0CB= ILRECL»121. RECFM=FBA,8LK5IZX 

E«=3025), X' 

PUNCH «// SPACE=(3025,(2C0, 100), RLSE, .ROUND)' 

PUNCH './ ADO NAHE'IMSPLIGC 

PUNCH ',/ NUMBER NEW1=10,I NCR»10' 

PUNCH '// PROC M8R»,PAG£S=50' 

PUNCH «//C EXEC PGM=IEMAA,PARM="XREF,ATR,LOA0,NODECK,NX 

0MACR0,0PT-1", X' 

PUNCH ■// REGICN=114K' 



INS/360 SYSTEM DEFINITION SPECIFICAT ICNS 



LCC OBJECT CODE ADDK1 AD0R2 



STMT 
966+ 

967+ 

968 + 
+ 

969 + 

970 + 
+ 

971 + 

972 + 
+ 

973+ 
974+ 

975+ 
976 + 
977+ 
978 + 
979+ 

+ 
980 + 
981+ 
982+ 

+ 
983+ 
984 + 

+ 
985+ 
986+ 
987+ 



989+ 
990+ 



991 + 

992 + 



997 + 
998+ 
999 + 
1000+ 
1001+ 



SOURCE STATEMENT 



PUNCH '//SYSUT1 DD 
NO), 



PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



PUNCH 
PUNCH 



PUNCH 
PUNCH 



PUNCH 
PUNCH 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



//SYSUT3 DD 
NO), 

II 

//SYSPRINT OD 

=VBA>, 

// 

//SYSLIN DD 
BLKSIZE=80, 

// 

l/l EXEC 

(4.LT.C), 

// 

//SYSLIB DD 

// OD 

//SYSLIN DD 



F30SF.P69 2/12/70 

UNI T'SYSDA, SPACE* (1024, (60, 60 ),RLSE,»ROUX 

X' 

CCB=(BLKSlZE-l024>,CtSP= (NEW, PASS)' 

UNI T'SYSDA, SPACE' (1024, (60 ,60) ,RLSE,,RCUX 

X' 

CCB»(BLKSIZE»1024),CISP= (NEW, PASS)' 

SYS0UT=A,DCB»(LRECL=125,BLKSIZE*629,RECFX 

X' 

SPACE=(6C5,(t£PAGES.0,SCPAGES),RLSE)' 

UNIT»SYSDA,SPACE»(8O,(25O,80),RLS6),DCB«X 



DISP=(NEU,PASS>' 
PGM-OFSILNK0,PARM-' 



'XREF, LIST, LET" ,CONDX 



REGICN'KOK' 

CSNAME»SYS1.PL1L1B,0ISP»SHR' 
DSNAME=<SYS1.C0BLIB,DISP=SHR' 
0SNAME-*.C.SYSLIN,DISP=>«0L0. DELETE)' 
VOLUME=SER=STORGE»DISP=SHR, X 

CONTINUE" 

// 0SNAME»ICS.PROCLIB(DLITPLI),UNIT=2314' 

// DO CDNAMEaSYSIN* 

//SYSLMOD DO VOLUME»SER»IMSLIB,CISP»SHR, X 

CONTINUE' 

// DSNAME"ICS.CL00U£MBR),UNIT»2314' 

SYSOUT=A,aCB=(LRECL=121,BLKSIZE=605,RECFX 



SPACE' ( 605, (CtPAGES.OVtePAGESI.RLSE)' 

DSNAM6=ICS.CL0D,DISP»SHR' 

UNIT«SYSOA,DISP«(NEW,DELETEI,SPACE=(CYL,X 

PGM=DFSlRC00,PARM="3,£tMBR",COND=(4,LTX 



//SYSPRINT 00 
M=FBA), 
// 

//SYSOBJ DD 
//SYSUT1 00 
5, I), RLSE) • 
lir, EXEC 

,REGI0N=150K, X' 

// TIME-5' 

//IMS DO VOLUME'SER»IMSLIB,DlSP»SHR, X 

CONTINUE' 
// DSNAME»ICS.PSBLIB,UNIT*2314' 

// DD VOLUME»SER»IMSLIB,DISP"SHR, X 

CONTINUE' 
// DSNAME=ICS.DBDLIB,UNIT»2314' 

//SYSPRINT DC SYSOUT*A,DCB>(LRECL=121,BLKSIZE»605,RECFX 
= FBA) , X' 

// SPACF=(605, (500. 500), RLSE,. ROUND)' 

//SYSUOUMP DC SYS0UT«A,0CB«(LRECL=121,eLKSIZE=>605,RECFX 
»FBA), X' 

// SPAC E"(6C5,(5C0,5C0), RLSE,, ROUND)' 

./ ADD NAME'MFDBOUMP' 

./ NUMBER NEWW10.INCR-1Q ' 

// PRQC SCUT'A' 

//DUMP EXEC PGM«DFSIRCO0,PARM="3,CFSSAMO8",REGlON=110X 
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IMS/3SC SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CCDE ADOR1 A00R2 STMT SOURCE STATEMENT 



1002* 
1003+ 
1004 + 
1005* 

1006 + 

1007 + 
1008+ 
1009 + 
1010+ 

1011 + 

1012 + 
1013+ 



PUNCH '//STEPLIE CD CSN* ICS.CLCOt D ISP-SHR • 

PUNCH •// OD 0SNAME=1CS.CLCD,DISP«SHP' 

PUNCH '//IMS DD DSNAME=1CS.PSBLIB,DISP=SHR' 

PUNCH ■// CD DSNAMF*ICS.OEOLIR,DISP=SHR' 

PUNCH '//SYSUDUMP DO SYSOUT=£LSOUT' 

PUNCH '//C121PART DD DSN AMt= I MS.OI 21PART ,DI SP= SHR' 

PUNCH '//DI21PAR0 DD DSNAP E= I VS .DI21 PARC, CISP=SHR« 

PUNCH '//OUTPUT DO SYSOLT=tC SOUT' 

PUNCH './ ADC NAME=KFCBL>1AG' 

PUNCH ■./ NU^EER NEW1=10,INCR=10' 

PUNCH '// PROC SOUT=A' 

PUNCH '//LCAO EXEC PCM=DFS IRCOO, PARM= "3t DFSSAM01" .REGION* UOX 



1014 + 
1015+ 
1016* 
1017 + 
1018+ 
1019 + 

+ 
1020+ 

+ 

1021 + 
+ 

1022 + 
1023+ 

1024 + 

1025 + 
1026+ 

1027 + 

1028 + 
+ 

1029 + 
+ 

1030+ 

1031 + 

1032+ 

♦ 

1033 + 
+ 

1034 + 



1037 + 

♦ 
1038+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 



//STEPLIB DD CSN=ICS.CLCD.DISP«SHR' 

// OC nSNAME=ICS.CLCD,DlSP=SHR' 

//MS OD OSNAME«ICS.PSBLIB,DISP=SHR' 

// DD DSNAME=ICS.DPDLIB,DISP=SHR' 

//SYSUDUMP OC SYSOUT=£ESOUT' 

//0I21PART DD 0SNAMEMNS.DI21PART(PRim,DISP=( .KEEP) ,DX 

B=CSORG=lS, X' 

// SPACE=(CYL,3,,Ct1NTIG),V0L=SER=E£PSER,UNIX 

T=£KPUNIT' 

//DI21PAR0 EC CSNAPE=IMS.nI21PAR0,DISP=(,KEEP),SPACE=(CX 
YL,3,,C0NTIG> , X' 

// VOL = SER = £<;0SER ,UM T = GCCUM T' 

//SYSOUT DD SYSCUT=CCSOUT' 

//INPUT OD DSNAPFMCS.B^ACIPFDFSYSNI.DISP-SHR' 

./ ADO NAME=PSBGEN' 

./ NUMBER NEW1=10,INCR=10« 

// PROC HBR=TEMPNAME" 

//C EXEC PGM=IEUASM»PARM="LnA0,NODECK",REGICN«lX 

OOK' 

//5YSLI8 DD VOLUME=SER=IMSLIB,DISP=SHR, X 

CONTINUE' 

// DSNA»'E=ICS.BMAC,UNIT = 231<i' 

// OD DSNAME=SYS1.MACLIB,DISP=SHR« 

//SYSGO CD UNIT=SYSCA,DISP=(,PASS),CCB»(BLKSIZE=400X 



// 

.SE) • 

'//SYSPRINT DD 

■605), 
•// 

//SYSUT1 DD 
00,50)1' 

//SYSUT2 DD 
00,50)) ■ 

//SYSUT3 DC 



RECFM=FB,LRECL= 80), SPACE* (e0,( 100,100 ,RX 
SYS0LT=A,aCB = (LRECL*=121,RECFM=FBA,BLKSIZX 



SPACF=(121.(500,500),RLSE, .ROUND)' 
UNIT=SYSDA,DISP=(,DELETE),SPACE=(17C0,(1X 



UNI T=SYSDA,DISP={, DELETE), SPACE* I 1700, (IX 
UNIT=(SYSDA,SEP=(SYSLie,SYSUTl,SYSUT2)),X 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC CBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 



•// 



1041 + 
10*2+ 
1043 + 
1044+ 

1045 + 
1046+ 

1047 + 

1048+ 

+ 

1049+ 

1050 + 

1051 + 
1052+ 

1053 + 
+ 

1054 + 
+ 

1055+ 

1056 + 

1057 + 
+ 

1058 + 

1059+ 

+ 

1060 + 

1061+ 

1062 + 
+ • 

1063 + 
+ 

1064 + 

1065 + 

1066 + 

1067 + 
1068+ 
1069+ 

+ 
107C+ 

1071 + 

1072 + 

1073 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH. 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 



//I 
LT.CI, 
// 

//SYSLIN DD 



EXEC 



,CON0=(0,X 



REGICN=100K' 

CSNA»<E**.C. SYSGO, DISP = ( OLD, DELETE)' 
// OD ODNAME*SYSIN' 

//SYSPRINT DC SYS0UT=A,CCfi=(LRECL*121,RECFM=FBA,BLKSIZX 
;=6C5), X' 

// SPACE=(121,( 100,100),RLSE)> 

//SYSLMOO DD VOLU)<E=SER=IMSLIB,CISP=SHR, X 

CONTINUE' 
// CSNAME=ICS.PSBLIB(EEMBR),UNIT=2314" 

//SYSUT1 DD UNIT=(SYSOA,SEP=ISYSLMOD, SYSLIN)), OISPMX 

DELETE), X' 

// SPACE=(1024,(100,10),RLSE)' 

./ ADD NAME-DSDGEN' 
./ NUMBER NEHl=10,INCR=10' 
// PROC PBR=TEMPNAME' 

//C EXEC PGM=IEUASM,PARM*"LCA0,N00ECK ,, ,REGI0N=1X 
OOK' 

■//SYSLIB DD VOLUfE=SER=IMSLIB,CISP=SHR, X 

CONTINUE' 

0SNAME=ICS.BMAC,UNn=2314" 
DSNAME=SYS1.MACLIB,DISP*"SHR' 
•//SYSGO DD UNI T=SYSDA,OISP=( .PASS), DCB=(BLKSIZE=400X 

X' 

•// R ECFM=FB,LRECL=80), SPACE* (80, (100, 100 ),RX 

LSE)' 
//SYSPRINT CC SYSOUT=A,0Ce=(LRECL«l21,RECFM=FBA,BLKSIZX 
= 605), X' 

// SPACE=I121. (500, 500), RLSE,, ROUND)' 

UNIT=SYSCA,DISP=(,DELETE),SPACE=(1700,(1X 



//SYSUT1 DD 
00,50)1 • 

//SYSUT2 DD 
00,5011' 

//SYSUT3 DD 



UNIT=SYSCA, 01 SP=(, DELETE ),SPACE=(17C0,( IX 
UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2)),X 



'// 
//L 
LT,C), 
'// 



SPACE=(1700,(100,50))' 
EXEC PGM=OFSILNK0,PARM="XREF,LIST' • ,COND=(0,X 



REGICN=100K' 

DSN AME= *. C. SYSGO, D I SP=( OLD, DELETE)' 

DDI'.AVE'SYSIN' 

SYS01T=A,DCB*(LRECL=121,RECFM=FBA,BLKSIZX 



//SYSLIN OD 
DD 
'//SYSPRINT DD 
;=605), 

// SPACE=(12l,(100,100),RLSE)' 

//SYSLMOD OD VOLUwE=SER=IMSLIB,DI SP=SHR, X 

CONTINUE' 
// CSNAKE = ICS.DBDLie<£EMBR),UMT=2314' 

//SYSUT1 OC UNIT=( SYSOA,SEP=(SYSLMCD, SYSLIN)) ,DISP=(X 



172 



I*S/?60 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CCOfc ADDR1 AOCR2 STMT 

+ 

1074 + 

1075 + 
1076+ 
1077 + 

+ 
1078+ 

1079 + 
+ 

10AO + 
♦ 

1081+ 
+ 

1082 + 
+ 

1083 + 
+ 

1084+ 

1085 + 

+ 

1086+ 

1087+ 

+ 
1088+ 

1089 + 

1090 + 
+ 

1091 + 

1092 + 

+ 

1093 + 
+ 

1094 + 

1095 + 



1097+ 
1098 + 



SOURCE STATEMENT 

.DELETE), 
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PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 



PUNCH 
PUNCH 



SPACE- (1024 ,(100, 10) ,RLSE)' 
ACD NAME-IMS' 
NUMBER NEWWO.INCR-10' 
•//IEFPROC EXEC PGM«IEFIRC, REACER FIRST LQAO X 
X' 
II REGICS-48K, READER BASIC REGION X 

X' 
•// PARM-"001O3CO50OK249O'50iaSYSDA •• X 

X' 

RPPTTTCCCMMMIIICCCRLSSSSSSSS DEFAX 
ULT PARM FIELDS X' 

PROGRAMMER NAME AND ACCT NBR NOT NEEDEP X 
X' 

PR10RITY-01 X 

X« 

JOB STEP INTERVAL-30 MINUTES X 

X' 

PRIMARY SYSCUT SPACE-50 TRACKS X 

X 1 

SECONDARY SYSOUT SPACE-10 TRACKS X 

X' 

READER/INTERPRETER DISPATCHING PRI0RITY»X 
X' 

JOB STEP DEFAULT REGI0N-50K X 

X' 

DISPLAY AND EXECUTE COMMANDS-1 X 

X' 

BASIC LABEL-0 X 

L X' 
■// SYSPUT UNIT NAME-SYSOA X 

SSSSSSSS' 
'//IEFROER DO UNIT-2314, X 

CONTINUE' 
■// VOLUME-SER-STORGE, X 

CONTINUE' 

DISP=SHR, X 

X' 
DSNAMF=ICS.PRCCLie(IMSO),DCB=BUFNO=l' 
•//IEFPDSI OD DSNAKE-SYS1.PR0CLI8.DISP-OLD PROCEDUREX 

LieRARY' 
■// DD VOLUME-SER-STORGE, CISP-SHR, X 

CCNTINUE' 
'// 0SNAME=ICS.PR0CLIB,UNIT-2314' 

■//IEFDATA DD UNIT-SYSDA, SPOOL DEVICE X 



TTT 

000 
MMM 
III 
CCC 



1099 + 

+ 

1100+ 



PUNCH 
PUNCH 



'// 



SPAC E-(8C,( 500, 500), RLSE. CDNTIG), AMOUX 

X' 

CCB=(BUFN0=2,LRECL-80,BLKSIZE=80,RECFM-FX 



IMS/?fC SYSTEM DEFINITION SPECIFICATIONS 



LCC CBJECT CCDE ACUR1 AD0R2 STMT 

1101 + 
1102+ 
1103+ 

1104 + 
+ 

1105 + 
+ 

1106+ 

1107+ 

♦ 

1108 + 
+ 

1109 + 

1110+ 
+ 

1111 + 
+ 

1112 + 
■ ♦ 

1113+ 

+ 

1114 + 

1115+ 

1116+ 
1117+ 
♦ 
1118+ 
1119+ 

1120 + 

1121 + 

1122 + 
1123+ 

1124 + 

1125 + 
1126+ 

1127+ 



1130 + 

1131 + 



SOURCE STATEMENT 
./ 



F30SEP69 2/12/70 



PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



ADD NAME-IMSC 

NUMBER NEW1-10.INCR-10' 
//IMSO JOB 1,IMS,PRTY=12,MSGLEVEL=1' 
//NUCLEUS EXEC PGM=DFSIRC0O,REGION» 178K,TIHE=<1440, 



'// 



PARM FIELD 



// 

CCCC 



'// 



PARM*' 'OOOFSINUC0014010010010020' ■ 
X' 

ABCCCCCCCCDCCEEEFFFGGGHHH 
X' 

REGION TYPE-0 
X' 

BTAM-0 
X' 

NUCLEUS MEMBER NAME 
X' 

NUMBER OF QCR BUFFERSICALCULATED ) 
X' 

NUMBER OF MSG BUFFER S( CALCULATED ) 
X' 

PSB FOOL IN IK BLOCKS (DEFAULT) 
X' 
CMB fCCL IN IK BLOCKS(CEFAULT) 



B X 
CCCCX 
ODD X 
EEE X 
FFF X 
GGG X 
HHH' 



•// OSAM £E TP POOL SI Z E( OEFAULT) 

'//IMS DO V0LUME=SER-1MSLIB,DISP=SHR, X 

CONTINUE' 

CSNAME=ICS.PSBL1B,UNIT=2314' 
'// 00 VOLUME=SER-IMSLlB,DISP=SHR, X 

CONTINUE' 

'// CSNAME=ICS.OBDLIB,UNIT«=2314' 

•//STEPLIB OD OSN-ICS.CLCO.DISP-SHR' 

■//SYSUDUMP DD SYS0UT-A,bCB=(LRECL=125,RECFM»VBA,BLKSIZX 
E-3129), X' 

SP ACE- (125, (3000, 3000), RLSE,, RCUND)' 
•//INQCR DD DSNAME=ICS.I0CRDSET,DISP=OLD' 
'//INMSG DD CSNAME-ICS.IMSGDSET,DISP=OLO' 
■//OUTQCR OD OSNAME»ICS.0aCRDSET,DISP=OLO' 
•//CUTMSG DD CSNAME-ICS.OMSGDSET.DISP-OLD' 
•//IMSLOG DD DSNAKE=IMSLOG,DISP=(,KEEP),UNIT=(2400,iDX 
EFER), 



PUNCH 
PUNCH 



PUNCH 
PUNCH 



II 

FNO-ll, 

'II 

'//IMSLOGR DD 

II 

//DBDUMP DD 
'IMSLOGR' 

//DD2740S DC 
'// DC 



DCB-IRECFM-VB, BLKS IZE* 1408.LRECL- 140C.BUX 



VOL=(,,,10>' 
0SNACE=IMSLCG,DISP=OLD,VOLUME=SER=00000OX 



UNIT-i 2400, .DEFER) • 
DSNAME-DFSIDUMP,OISP*(NEW,KEEP),UNIT=AFFX 



UNIT=022 
UMT-023 



** IMS LINE 2' 
*» IMS LINE 3' 
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IMS/260 SYSTEM DEFINITION SPECIFICATIONS 



ICC OBJECT CODE ADDR1 ADDRZ STMT SOURCE STATEMENT 
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1134 + 
1135* 
1136+ 
U37 + 
1138+ 
1139 + 
1140+ 

1141 + 
+ 

1142 + 
+ 

1143 + 

1144 + 
+ 

1145 + 
+ 

1146 + 
+ 

1147+ 

+ 

1148+ 

1149 + 
+ 

1150 + 

1151+ 

1152+ 

+. 

1153+ 

1154 + 
+ 

1155 + 

1156 + 
1157+ 

1158 + 
1159+ 
1160* 
1161 + 
1162+ 

1163 + 
♦ 

1164 + 
+ 

1165+ 
1166+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 



PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



// OD UNIT=024 

//DD2740A CC UNIT«026 

//DD1050A DD UNIT'027 

//DC1050 DD UNIT=02A 

//002260T DD UMT=0A2 

./ ADD NAME«tMSl' 

./ NUMBER NEW1=10, INCR=10« 

//NUCLEUS EXEC PGM=OFS I RC00,REGt0N=178K,T IME=1440, 



** IMS LINE 4' 
** IMS LINE 5' 
** IMS LINE 6' 
** IMS LINE 8' 
*» IMS LINE 9' 



// 



II 

PARM FIELD 



PARM="0 OOFS INUCC014C1O0 10010020" 

X' 
, ABCCCCCCCCOOCEEEFFFGGGHHH 
X' 

REGICN TYPE«0 
X' 

BTAM*0 
X' 

NUCLEUS MEMBER NAME 
X 1 

NUMBER OF OCR BUFF ERS (CALCULAT ED ) 
X 1 

NUMBER OF MSG BUFFERS(CALCULATEO) 
X' 

PSB POOL (N IK BLOCKS(DEFAULT) 
X' 
DMB POOL IN IK eLOCKS(OEFAULT) 



// 
//IMS 



// 



B X 
CCCCX 
OOC X 
EEE X 
FFF X 
GGG X 
HHH' 



DD 



CSAM ££ TP POOL SI ZE(OEFAULT) 
VOLUME«SER=IMSLIB,DISP=SHR, X 

CONTINUE' 

CSNACE=ICS.PSBLIB,UNIT=2314' 
V0LUME»SE*=IMSLI8,CISP=SHR, X 

CONTINUE' 

// CSN«KE=ICS.CeOLIB,UNIT=2314' 

//STEPLIB DD 0SN=ICS.CLOll,DISP=SHR' 

//SYSUOUMP DC SYS0UT»A,DCB=(LRECL=125,RECFM=VBA,BLKSIZX 

-3129), X' 

// SPACE«(125,(3000,300Q),RLSE,,RCUN0I' 

//INQCR DO 0S^AME=JCS.IeCR0SET,0ISP=OLD■ 

//INMSG DD OSNAME = ICS, IMSGDSET,DISP=OLC 

//OUTOCR DD DSNAME^ICS.OaCROSET.DISP'rLO' 

//CUTMSG DD DSNAME=ICS.CMSGOSET,DISP=OLC 

//JMSLOG DO OSNAME*IMSLOG,DISP = l,KEEPI ,UNIT= (2400, ,DX 

EFERI, X' 

// DC B~(RECFM=VE,BLKSIZE= 1408, LRECL" 1400, BUX 

FN0=1), X' 

// VOL»(,i.lOI' 

//IMSLOGR DD DSNAME«lFSLCG,OISP=CLD,VCLUME=SER=fO0OO0OX 



// 



UNIT=(2400,, DEFER) ' 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



S 



LCC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 
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1168+ 

+ 

1169+ 

1170 + 

1171 + 

1172 + 

1173 + 
1174+ 
1175+ 
1176 + 
1177+ 
1178 + 
1179+ 

+ 
1180 + 

+ 
1181+ 
1182+ 

♦ 
1163+ 
1184 + 

+ 
1185+ 
1186 + 
1187+ 

1188 + 

1189 + 
1190+ 

1191 + 
+ 

1192 + 

1193 + 
♦ 

1194 + 

1195 + 
+ 

1196 + 

1197 + 
+ 

1198 + 

1199 + 
1200+ 
1201 + 
1202+ 

1203 + 

1204 + 
+ 

1205 + 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



//OBDUMP DD 

IMSLOGR' 

//D02740S 



DSNAME=DFSIOUMP,DISP=tNEW,KEEPI,UNIT=AFFX 
2* 



// 
II 

//DD2740A 
//OD1050A 
//OC1050 
//DD2260T 



DD UMT»022 

DD UMT=023 

00 UNIT<=024 

OC UMT=026 

DD UNIT=027 

CD UNIT=02A 

DD UNIT=0A2 

ADD NAME'IMSBATCH' 
NUMBER NEWl=lO,INCR=10' 

PROC PSB=TEMPNAME' 

EXEC PGM=DFSlRCOO,PARM 



** IMS LINE 
** IMS LINE 3« 
*♦ IMS LINE 4' 
** IMS LINE 5* 
** IMS LIKE 6« 
** IMS LINE 8« 
** IMS LINE 9' 



•2,«£PSB' , ,REGION*26KX 



II 

//SYSUDUMP DO 

=31291, 

II 

.1 ADD 



DD VOLUME«SER=IMSLIB,OISP=SHR, X 

CONTINUE' 

0SNAME»ICS.PSBLIB,UNIT=2314« 
DD VOLUME'SER«IMSLIB,DISP=SHR, X 

CONTINUE' 

0SNAME*ICS.DBDL!B,UNIT=2314' 
SYS0UT=A,0CB=(LRECL«121,RECFM=VBA,BLKSm 



SPACE=I12 5,(2500,100),PLSE,,ROUND) , 
NAME=IMSMSG" 
./ NUMBER NEW1=10,INCR=10' 
//MESSAGE JOB 1,IMS,MSGLEVEL=1,PRTY»U' 
//G EXEC PGM=DFSIRC00»PARM=1,REGI0N=26K« 
//STEPLIB DD CSN»lCS.CLCO,DISP»SHR' 
// DD VOLUME»SER»IMSLIB,DISP»SHR, X 

CONTINUE' 
// 0SNAME*ICS.CL0D,UNIT»2314« 

//IMS DD VDLUME«SER=IMSLIB,OISP=SHR, X 

CONTINUE' 
// DSNAME«ICS.PSBL1B,UNIT»2314' 

// DD VOLUME=SER*IMSLIB,DISP=SHR, X 

CONTINUE' 
// DSNAME=ICS.DBDLIB,UNIT=2314' 

//SYSUOUMP DD SYSOUT=A,OCB=(LRECL=125,RECFM=VBA,RLKSIZX 
=31291, X> 

// SPACE=ll2 5,(2500,100l,RLSE»,ROUNOI* 

./ ACO NAME=SECURITY" 
./ NUMBER NEW1-10,IKCR=10' 
// PROC OPTN=UPDATE,IMS»",0" ,SOUT=A« 
IIS EXEC PGM=DFSISMP0,PARM=••6£0PTN.(;e!MS.••■ 

//STEPLIB DD CSN=ICS.CLCO,DISP=SHR' 

//SYSPRINT OD SYSOUT=t£SOUT,DCB=(RECFM=.V8A,BLKSIZE-=400,X 
BUFL=404 I' 
//SYSPUNCH DO UN1T*SYSDA,SPACE=(R0, (800, 400),,, ROUND), X 



// 



0CB»(RECFM*FB,LRECL«80,BLKSI*E=4q0)«Q!SPX 



17<l 



IMS/?6C SYSTfM DEFINITION SPECIFICATIONS 



LCC OBJECT CODE ADDR1 AODR2 STMT SOURCE STATEMENT 



1208 + 

1209+ 

♦ 

1210 + 

1211 + 

1212 + 
1213+ 
1214 + 



1216 + 
1217+ 

1218 + 
1219+ 

1220 + 

1221 + 

1222 + 



1224+ 

1225 + 

1226 + 
+ 

1227 + 
1228+ 
1229+ 

1230 + 
♦ 

1231 + 

1232 + 
1233+ 

+ 
1234+ 
1235+ 

1236 + 
1237+ 

+ 
1238* 

+ 
1239 + 



-(.PASS) • 
PUNCH '//SYSLIN OD 

F.BLKSIZE-80) ,' 
PUNCH 
PUNCH '//SYSUTl 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 



PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCh 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 



II 

//SYSUT2 DO 

400),,, ROUND), 

II 

//SYSIN DC 
IIC EXEC 



DCB=*.S. SYSUTl' 

OSN'NO. SYS 1N.DD. ASTERISK' 

PGM»IEUASm.,PARM="LCAD,N0DECK"»C0ND«(12X 

LT,S),RFGI0N«96K' 

//SYSPR1NT CC SYSCUT«CCSCUT,0C8«(RECFM»F8MiLRECL«121,BX 
LKSIZ£*605I • 

//SYSGfl 00 

// 
OUNO)' 

//SYSUT1 DC 

//SYSUT2 OD 

//SYSUT3 OC 
CVLii5.ll) 1 

//SYSIN * OD 

III EXEC 



F30SEP69 
UNIT-SYSDA,SPACE=(TRK,(l,ll),DCB«(RECFM»X 

iRQUNOI X 



DISP»(,PASS)' 
UNIT»SYSOA,SPACE»(100,(400,400). 



DCB«(BLKSIZE-500,RECFM-FB)' 

UNIT- (SYSOA.SEP-SYSUTD.SP ACE- < 100, (400.X 



UNIT=ISYSOA,SEP-SYSPRINT),DISP-( .PASS) ,' 
DCB-*.S. SYS PUNCH, SPACE- (80, (400, 400 ),,,RX 

UNIT«SYS0A,SPACE=(CYL,15,1))' 
UNIT-SYSCA,SPACE»(CYL,(5,1))' 
UNIT=(SYS0A,SEP=(SYSUT1,SYSUT2)I ,SPACE=(X 



DSN=*.S.SYSPUNCH,CISP-(OLD,DELETEI' 
PGM=nFSILNKO,PARM="XREF,NE,OL" .REGION-X 
10K,C0N0-(4,L1,S)' 

//SYSPR1NT DD SYSCLT=CCS0UT,DCB=(RECFM-FBA,LRECL=121,BX 
LKSIZE-605)' 
//SYSLMCO DC CSN-ICS.CLOD,OISP-SHR' 
//INPUT DD DSN-*.C. SYSGO, DISP-IOLD, DELETE)' 
//SYSUT1 DD UNIT=(SYS0A,SEP-INPUT),SPACE-(CYL,(5,1)IX 

//SYSLIN DD OSN = *.S.SYSLIN,DISP»(OLD, DELETE)' 

./ ENDUF' 

/*• 

//STEP5 EXEC PGM-I£UASM,PARM-"L0AD,N0DECK",REGI0N»9X 
2K' 

//SYSLIB 00 

// 00 

//SYSGO OD 
KSIZE-400, 

// 

//SYSPRINT DC 

-FBA), 

// 

//SYSUT1 DD 
00,50))' 

//SYSUT2 OD 
00,50))' 

//SYSUT3 DD 
OISP = (, DELETE), 



DSNAPEMPS.GENLIB.OJSP-ICLC.PASS)' 

DSNAME-SYS1.MACLIB.DISP-SHR' 

UNlt-SYSD4,DISP-(,PASSJ,0CB=(LRECL=8C,8LX 

X' 

RECFM=FB)jSPACE-(TRK,(10,lC),RLSEI' 

SYS0UT = A,DCB«(LRECL-121,BLKSIZE-605,RECFX 

X' 

SPACE-I6C5, (ICO, 501, RLSE,, ROUND >■ 

UNI T=SYS DA, D ISP- (.DELETE), SPACE- (1700, (IX 

UN IT-SYSCA.D ISP- (, DELETE ),SPACE-( 1700, (IX 

UNlT-( SYSDA,SEP=(SYSLIB, SYSUTl ,SYSUT2)),X 



I(«S/360 SYSTEM DEFINITION SPECIFICATIONS 



LOC OBJECT COOE AUDR1 AD0R2 STMT SOURCE STATEMENT 



F30S6P69 2/12/70 



1240+ 
1241 + 
1242+ 
1243 + 
1244+ 
1245+ 
1246+ 
1247+ 
124 8+ 

+ 
1249+ 

+ 

1250 + 

1251 + 
1252+ 
1253+ 

+ 
1254+ 
1255 + 

+ 
12E6 + 
1257+ 

+ 
1258 + 
12 59+ 
1260+ 
1261 + 
1262+ 
1263+ 
1264+ 
12*5+ 
1266+ 
1267+ 
1268 + 

+ 
1269+ 

+ 

1270 + 

1271 + 
1272+ 
1273 + 
1274+ 
1275+ 
1276+ 
1277+ 
1278+ 
1279+ 
128C+ 

1281 + 

1282 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



//STEP6 EXEC PGK=IEkL,PARM="CVLY,NCAL,XREF,LIST",REGIX 
0N-110K' 

//SYSPRINT DC SYSOUT»A,0CB*(LRECL=121,BLKSIZE»6O5,RECFX 
M=FBA), X' 



II 

//SYSIN 
DFSISCO 



/*' 



SPACE-(1700,(100,50))' 
DO *• 
CSECT' 
PRINT ON' 

IMSBATCH CENDA-Z8.SPVSVC-243' 
ISCO SECTYPE-CSECT' 
END' 



SPACE-(605,( 10,10) ,RLS£,, ROUND! • 

DSNAME-*.STEP5. SYSGO, DISP-I OLD, DELETE)' 

DDNAME-SYSIN' 

VOLUME-SER-IMSLIB, DISP-IOLD, PASS), X 
CONTINUE' 

0SNAME=ICS.CL00,UNIT-2314' 

V0LUME-SER-1MSLIB.0I SP=(OLD,PASS) , X 
CONTINUE' 

DSNAME-ICS.CLOD.UNIT-2314' 

UN IT-1SYS0A, SEP- ( SYSLIN, SYSLMOD) ) ,DI SP-i.X 



// 

//SYSLIN DD 
// OD 
//SVSOBJ OD 

// 

//SYSLHOD 00 

// 

//SYSUTl DD 

DELETE) , 

// 

//SYSIN DD 

SETSSI 05012090' 
INCLUDE SYSOBJ(DFSIDBAO) 
INCLUDE SYSOBJ(DFSIDLNO) 
INCLUDE SYSCBJ(DFSISMMO) 
INCLUDE SYSOBJ(DFSIOSIO) 
INCLUDE SYSCBJ(DFSI0S60) 
INCLUDE SYSOBJ(OFSIBKBO) 
INCLUDE SYSCEJ(CFSIlNLO) 
INCLUDE SYSCBJ(OFSIIMO) 



SPACE-! 1700,(100,50))' 



DL/I BATCH ANALYZER' 

DL/I BATCH INITIALIZATION' 

STORAGE MANAGEMENT' 

USAM OPEN ROUTINE' 

OSAM CLOSE ROUTINE' 

BA7CH CONTROL BLOCKS' 

INIT - MODULE LOADER' 

INIT - JC1BLIB MODULE LOADEX 



INCLUDE SYSCej(DFSIIN20) INIT - SVCLIB MODULE LOADEX 



INCLUDE SYSOBJ(DFSIDLOO) 
CHANGE DFSICS60I0FSIOS7O) 
INCLUDE SYSC8J(DFSinS60) 
CHANGE DFSI0S60IDFS1OS70) 
INCLUDE SYSCBJ(DFSIOLCO) 

OVERLAY I MSA' 
INSERT DFSISMMO' 

OVERLAY IMSB' 
INSERT DFSIOLNO' 
INSERT DFSIINLO' 
INSERT 0FSIIN10' 
INSERT 0FSIIN20' 

OVERLAY IMSA' 



DL/I OPEN MODULE' 

CHG EP TO OSAM CLOSE RTNE' 

OSAM CLOSE RTNEI2ND COPY'' 

CHG OLCO REFERENCE' 

DL/l CLOSE MODULE' 



175 



IPS/360 SYSTEM CEFINITION SPECIFICATIONS 



LCC OBJECT CODE ADDR1 ADQR2 STMT SCURCE STATEMENT 
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1283 + 


PUNCH 


INSERT DFSIDLCO' 


12B4 + 


PUNCH 


OVERLAY IMSC 


1285* 


PUNCH 


INSERT DFSICS60' 


1286* 


PUNCH 


OVERLAY IKSO' 


1287 + 


PUNCH 


INSERT DFSlnSlO' 


128E+ 


PUNCH 


OVERLAY JMSA' 


1289+ 


PUNCH 


INSERT OFSIDLCO' 


1290+ 


PUNCH 


OVERLAY IMSE' 


1291 + 


PUNCH 


INSERT DFSI0S70' 


1292 + 


PUNCH 


ENTRY OFSSTART' 


1293+ 


PUNCH 


NAME OFSIOLBO(R) DL/I BATCH NUCLEUS' 


1294 + 


PUNCH 


/*• 


1295+ 


PUNCH 


//STEP7 EXEC PGM«lEUASM,PARM="LCAO,NCOECK" ,REGICN«9X 

K' 

//SYSLIB 00 DSNAKF = IfS.GENHB,DISP=(SHR,PASS)' 


1296+ 


PUNCH 


1297 + 


PUNCH 


// 00 DSNAME=SYS1.MACLIB,PISP=(SHR,PASS)' 


1298+ 


PUNCH . 


//SYSGO CO UNtT=SYSCA,DlSP=(,PASS>,DCB»(LRECL = 8C,BLX 


+ 




SIZE=40C, X' 


1299 + 


PUNCH 


// RECFM*FB),SPACE=(CYL, (1.1), RLSE >• 


1300+ 


PUNCH 


//SYSPRINT DC SYS0UT=A,DCB-(LRECL=121,BLKSIZE=605,RECFX 


+ 




1=FBA1, X' 


1301 + 


PUNCH 


// SPACE* (6C5, (100, 50), RLSE,, ROUND )■ 


1302+ 


PUNCH 


//SYSUT1 DO UNIT=SYSDA,DISP»(,CELETE),SPACE=(1700,(1X 


♦ 


00,50))' 


1303+ 


PUNCH 


//SYSUT2 00 UNIT=SYSCA,OISP=(, DELETE), SPACE-U7C0, (IX 


+ 


00,50))' 


1304 + 


PUNCH 


//SYSUT3 00 UNIT=(SYSDA,SEP = (SYSLIB,SYSUT1,SYSUT2)),X 


+ 




)ISP=(,DELETEI, X' 


1305+ 


PUNCH 


// SPACE=11700, (100,50), RLSE)' 


1306 + 


PUNCH 


//SYSIN OD *■ 


1307+ 


PUNCH 


COPY PCHSSI' 


1308+ 


PUNCH 


PRIKT CN" 


1309+ 


PUNCH 


OFSPSBD DFSIBBRO,100,DMBL1,0' 


1310+ 


PUNCH 


DFSPSBC DFSLKM00,100 I DMBL2,O• 


1311 + 


PUNCH 


OFSPSBD DFSSAMC2,100,DMBL3,0' 


1312 + 


PUNCH 


OFSPSBD DFSSAMC3,100,DMBL4»0' 


1313+ 


PUNCH 


OFSPSBO DFSSAM04,100,DMBL5-*O* 


1314+ 


PUNCH 


OFSPSBD DFSSAMC5,100,DMBL6,0' 


1315+ 


PUNCH 


OFSPSBD DFSSAM06, 100,DMBL7,0' 


1316+ 


PUNCH 


OFSPSBD OFSSAM07,100,DMBLB,0' , < 


1317+ 


PUNCH 


DFSPSBO ENOOSKOl.100,0,0' _ ,V-;j_ 
OFSPSBD HIBASK01,0-10,DMBL10,0* A S L - L "> 


1318+ 


PUNCH 


1319+ 


PUNCH 


0FSPS8D HIBLSKC1,*6T3*,DMBL11,0' 


1320+ 


PUNCH 


OFSPSBD HIMAJC01,100,DMBL12,0' 


1321+ 


PUNCH 


OFSPSBD HIMAJC02,100,DMBL13,0" 


1322 + 


PUNCH 


DFSPSBO HIMAJCC3,100,DMBL14,O' 


1323+ 


PUNCH 


DFSPSBD HIMARJC1,100,OMBL15,0' 


1324+ 


PUNCH 


DFSPSBO HIMASN01,100,0MBL16,O' 


1325 + 


PUNCH 


DFSPSBD HITASK01,100,DMBL17,0' 


1326+ 


PUNCH 


DFSPSBD HITASK02,100,DMBL18,O' 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 
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1327+ 
1328 + 
1329+ 
1330+ 

1331 + 

1332 + 

1333 + 
1334+ 
1335+ 
1336 + 
1337+ 
1338+ 
1339+ 
1340+ 

1341 + 

1342 + 
1343+ 
1344 + 
1345+ 
1346+ 
1347 + 
1348+ 
1349+ 
1350+ 
1351+ 
1352 + 
1353+ 
1354+ 
1355 + 
1356+ 
1357+ 
1358 + 
1359+ 
1360+ 
1361 + 
1362+ 
1363 + 
1364+ 
1365+ 
1366+ 
1367+ 

+ 

1368+ 

+ 

1369 + 

1370 + 
1371+ 
1372 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 



J^*-=* 



DFSPSBO HSBASK01,010,DMBL19,0' 
DFSPSBD HSTASK01, 100,DMBL20, 0' 
OFSPSBD N0PSB,100,DMBL21,0" 
DFSPSBD SWITCH, 100, 0MBL22,1« 

DFSCMeL DFSIBORT 

DFSCMBL 0I31PH01 

DFSCMBL DI21PART 

DFSCMBL, 0I21PART 

DFSOMBL DI21PART 

OFSCMBL DI21PART 

DFSCMBL DI21PART 

DFSOMBL DI21PART 

DFSCMBL DI31SK01 

OFSCMBL DI32SK01 

DFSOMBL DI31SK01 

DFSCMBL 0I32SK01 

DFSCMBL DS40JC01 
-DFSCMBL DS40JC01 

DFSCMBL* DI31PH01 

DFSDMBL\DI21IRJE 

DFSCMBL|DI31PH01 

OFSCMBLf DI31PH02 

DFSDMBLvDI31SK01 

DFSCMBLiDI32SK0l 

OFSCMBLiDSSlSKOl 

DFSCMBL) DS31SK01 

DFSCMEL -;DI3lPH01 

DFSCMBL^'DniPHOl 
ENTRY DFSIDMOO' 

DFSCMD DFSIBORT, 00000000 

DFSDMO DI21IRJE, 00000010 

DFSCMD 0I21PART, 00000010 

DFSCMD DI31PH01, 00000010 

DFSOMD DI31PH02, 00000010 

DFSCMD DI31SK01.00000C1C 

DFSCMD DI32SK01, 00000010 

DFSDMD DS31SKC1, 00000010 

OFSCMD 0S40JC01, 00000010 
END ' 



• QO.. 



> 10, 



.10,1 



'DMBL1 
■DMBL2 
'0MBL3 
'DHBL4 
'DMBL5 
■0MBL6 
'DMBL7 
■DMBL8 
'DMBL10 

•DMBL11 

■DMBL12 
■DMBL13. ■ , 
'0HBL14 
•DHBL15 
'0MBL16 

•DMBL17 
'DMBL18 
■DMBL19 
■DMBL20 
'DKBL21 
■DMBL22 

'DFSIBORT 
'DI21IRJE 
'DI21PART 
•DI31PH01 
•OI21PH02 
■DI31SK01 
•DI32SK01 
'0S31SK01 
'DS40JC01 

•/*• 

//STEPS EXEC FGM=IEWL,PARM="REUS,NCAL,XREF,LIST",REGIX 
0N=110K' 
//SYSPRINT DO SYSOL'T=A,OCB«(LRECL = 121,BLKSIZE-605,RECFX 
»FBA), X' 

// SPACE=(605,(10,10) ,RLSE,,RCUNDI' 

//SYSLIN DD DSNAME=*.STEP7. SYSGO, DISP=(nLD, DELETE)' 
//SYS08J OD OSNAME=ICS. CLOD, 0ISP=(OLD, PASS)' 
//SYSLMOD DD DSNAME=ICS.CL0D(DFSIDIRO) ,DISP»(CLn,PASS)X 



1373+ 



PUNCH '//SYSUT1 00 UNIT.= (SYSDA,SEP= (SYSLIN, SYSLMOD I ),DISP«( X 



V. 
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1374* 
1375+ 

+ 

1376 + 
1377+ 

1378 + 

1379 + 

1380 + 
+ 

1381 + 
1362 + 



1381 + 
+ 
1385+ 
1386 + 
138 7+ 
1388+ 
1389+ 

1390 + 

1391 + 

1392 + 

1393 + 

1394 + 

1395 + 

1396 + 
1397+ 

+ 

1398 + 

1399 + 

1400 + 

1401 + 
1402+ 

+ 
1403 + 
1404+ 
1405 + 
1406+ 

+ 
1407 + 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



DELETE), 

II 

//STEP" EXE 

K« 

//SYSLIB OD 

// DD 

//SYSGO DD 
KSIZE»400, 

II 

//SYSPRINT 00 

=FBAI , 

// 

//SYSUT1 OD 
00,5011" 

//SYSUT2 OD 
00,50) )• 

//SYSUT3 DD 
OISP-I, DELETE), 



II 

//SYSIN DD 



SPACE=(1730,C100,50)>' 
PGP«IEUASM,PARH*"LOAC,NCOECK' ',REGI0N=9X 

DSNAPE- IMS. GENL IB.DISP- ( SHR , PASS) 1 
DSNAME = SYS1.MACLIB,DISP=>(SHR,PASS)' 
UNIT»SYSDA,DISP-(,PASS) ,DCB»l LRECL-80, BLX 
X' 

RECFM=FB),SPACE-(CYL,(1,1),RLSE>' 
SYSOUT«A,DCB«(LRECL-121,BLKSIZE»605,RECFX 
X' 

SPAC E« ( 6C5,( ICO, 50) ,RLSE,, ROUND)' 
UN IT=SYS DA, niSP«(, DELETE ), SPACE- ( 1700, « IX 

UNI T= SYSDA.D I SP=( , DELETE), SPACE- 11700, (IX 

LNIT=<SYS0A,SEP=<SYSLIB,SYSUT1,SYSUT2)I,X 

X' 

SPACE»(1700,(100,50),RLSEI ■ 



COPY PCHSSI' 
PRINT 0N< 

DFSSPB 10, 6, 01 0001 01, 14, 448, #,65 535, 65535' 
DFSSPB 7,5,01000101, 9,128, ADDI, 65535, 65535' 
OFSS»n 7, 5, 01 00010 1,9, 12 8, AODINV, 65 535, 65535' 
DFSSPB 7, 5, 010C010 1,9, 12 8, ADDPART, 65535,65535' 
DFSSPB 7, 5, 01000 10 1,9, 128, ADDPN, 65535, 65535' 
OFSSPR 1,65535, 000001 01, 1,160, CLOSE, 65535, 6553X 

OFSSPB^, 5, 1000 10 1,9, 160, CLSORD, 6553 5, 65 53 5' 

DFSSPB 5, 5„ 1000001, "12 ,32, OF S, 8, 100' 

DFSSPB 0,6~5535,01000101,15,0,DFSIRDRS,65535,65X 

OFSSPB 9,2,010C0101ilO,192,OISe,6553 5,65535' 
DFSSMB 1,65535,00000101,1,192,01 SBURSE ,65535 ,6X 

DFSSPB 5, 2, 01 0001 01, 7, 128, OLET I, 65535, 65535' 
DFSSMB 5,2,01000101,7, 128, DLET IN V, 6553 5, 65535' 
DFSSMB 5,2,01000101,7,128,OLETPART,65535,65535X 

DFSSPB 5, 2, 01000101,7, 12 8, DLETPN, 65535, 65535' 

DFSSPB 5, 5, 10000 101, 10, 480, DL I, 10 ,10' 

DFSSPB 0, 3, 0100010 1,8, 480, DLN, 10, 100' 

DFSSPB 1,65535,00000101, 1, 224, OSPALLI ,65535, 65X 

DFSSMB 1,6 5535.00C00101,1,96,DSPINV,6553 5,6553X 

DFSSPB 1,6 5535, 00000 101,1, 64, DSPPN, 65535, 65535X 

DFSSPB 8, 65535, 01 000 10 1,8, 256, ENQ, 6553 5, 6 5535' 



J 
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A0DR1 A0DR2 


STMT 

1410+ 
1411 + 
1412+ 
+ 
1413 + 
1414+ 
1415+ 
1416 + 


SOURCE 


STATE 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
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1419+ 


PUNCH 


1420+ 


PUNCH 


1421 + 


PUNCH 


1422+ 


PUNCH 


1423+ 


PUNCH 


1424 + 


PUNCH 


1425+ 


PUNCH 


1426+ 


PUNCH 


1427 + 
1428+ 


PUNCH 


PUNCH 


1429+ 


PUNCH 


1430+ 


PUNCH 


1431+ 


PUNCH 


1432 + 


PUNCH 


1433+ 


PUNCH 


1434 + 


PUNCH 


1435+ 


PUNCH 


1436 + 


PUNCH 


1437+ 


PUNCH 


1438 + 


PUNCH 


1439 + 


PUNCH 


1440 + 


PUNCH 


1441 + 


PUNCH 


1442 + 


PUNCH 


144 3+ 

♦ 

1444+ 


PUNCH 


PUNCH 


1445+ 


PUNCH 



/*• 



DFSSPR 5, 5, 01000101, 12 ,480, I CS, 10, 100' 

DFSSMB 2, 10,00000101, 5, 480, IMS, 1,100' 

CFSSPB 1,65535,00000101, 1,96, INVTORY, 65 535, 655X 

OFSSPB 1,1,01000001, 1,640, NOP, 5, 50' 
DFSSMB 1,655 35, 00000101,1, 64, PART, 65535, 6 5535' 
DFSSPB 2, 1 0,01000 101, 4, 448 ,RJE, 65535, 65535' 
CFSSPB 8, 6 5535, 01000101, 8, 608, SKH1, 65535, 65535X 

DFSSPB 8, 65535, 01 000101, 8, 512, SK II, 65535, 65535X 

DFSSPB 8, 65535, 01000 10 1,8, 544, SKI 2, 65535, 6 5535X 

DFSSMB 1,1000, 01000001,7, 6 72, SMI, 5,1' 
DFSSPB 5, 4,01000001,5, 672, SWIBR, 20, 100' 
DFSSPB 4, 1,01000001, 6, 672, SWIPASS, 20, 100' 
DFSSPB 14, 100, 01000001, 14, 672, SWIPR ,20,100' 
OFSSMB 4, 1, 01 000001, 6, 672, SW ITS, 20, 100' 
DFSSPB 0,4,01C00001,4,672,SWN,5,100' 
DFSSPB 0,6 5535, 01000101, 0,320, SW1, 65535, 65535' 
DFSSPB 0, 1000, 01 0001 01,0, 288, SH2 ,65535, 65 535" 
DFSSMB 8,65 535,01000101,8, 352, TPPL1 ,65535, 6553X 

OFSSPB 8,65535,01000101,8,384,TPPL2,65 535,6553X 

OFSSPB 8, 6 5535, 01000 10 1,8, 4 16, TUBE, 65535, 65535X 

END' 

REUS,NCAL,XREF,LIST",REGX 



//STEP10 EXEC PGM=IFNL,PARM 

I0N=110K' 
//SYSPRINT DD SYSCUT=A,DCB=(LRECL-121, BLKSIZE=605,RECFX 

M=FBA), X' 

// SPACE=(605,( 10,10),RLSE,,R0UND)' 

//SYSLIN OD 0SNAME»*.STEP9. SYSGO, DISP=(OLD, DELETE)' 
//SYSOBJ DD DSNAME=ICS. CLOD. OISP=(OLD, PASS)' 
//SYSLMOO CD DSNAME=ICS.CL0D(DFS1SMB0),DISP-(0LD, PASS1X 



UNn=(SYSDA,SEP=(SYSLIN,SYSLMOD)),DISP=(X 
X' 

SPACE=(1700, (100,50))' 
EXEC PGM*IEUASM,PARM-"L0AD,NODECK" ,REGION»X 



//SYSUT1 00 

DELETE), X' 

// SPACE=(1700, (100,50)) 

//STEP11 
92K' 

//SYSLIB DD DSNAPE»IPS.GENLIB,DISP=(SHR,PASS)' 

// DD DSNAME=SYSl.MACLIB,OISP-(SHR,PASSP 

//SYSGO DD UNIT=SYSDA,DISP={,PASS),0CB»(LRECL=80,BLX 

SIZE=400, X' 

// RECFM=FB),SPACE=(CYL,(1,1I,RLSE)' 

//SYSPRINT DD SYSOUT=A.DCB= URECL=121 , BL KS IZE=605, RECFX 

M=FBA), X' 
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1446+ 


PUNCH 


// 


SPACF»(605, (100, 50), RLSE,, ROUND)' 


1447 + 


PUNCH 


//SYSUT1 OD UN1T»SYS0A,PISP-(, DELETE), SPACE=<1700, (IX 


♦ 


( 


)0,50>) 




1448+ 


PUNCH 


//SYSUT2 CC UNIT=SYSCA,DISP*(,OELETE),SPACE»l ITCCt IX 


♦ 


( 


)O f 50l) 




1449 + 


PUNCH 


//SYSUT3 CO UNIT=(SYSDA,SEP*(SYSL1B,SYSUT1,SYSUT2>) ,X 


♦ 


OISP«(»DELETE), X' 


1450* 


PUNCH 


// 


SPACE- ( 1700,(100,50) ,RLSE)' 


1451 + 


PUNCH 


//SYSIN CC *' 


1452+ 


PUNCH 




CCPY PCHSSP 


1453 + 


PUNCH 




PR1N1 ON' 


1454+ 


PUNCH 




DFSCLB 1,1,1,1,8008,1,00,0 SYSTEM CONSOLE CLX 


1455 + 


PUNCH 


•DFCL1 


ANOP' 


1456+ 


PUNCH 




DFSCLB 2, 1,1,1,3068, 0,28,0' 


1457 + 


PUNCH 




AGO .DFCL2' 


1458 + 


PUNCH 


.CFPL1 


ANOP' 


1459+ 


PUNCH 


CFPL1 


DFTRfL<T WRAPLST,(E2) * 


1460 + 


PUNCH 




AGO .0FP12' 


1461 + 


PUNCH 


.CFCL2 


ANOP' 


1462+ 


PUNCH 




DFSCLB 3,1,2,2*8008,0,56,0' 


1463 + 


Punch 




AGO .DFCL3' 


1464 + 


PUNCH 


.CFPL2 


»NCP« 


1465 + 


PUNCH 


0FPL2 


OFTRPLST WRAPLST.IE2) • 


1466 + 


PUNCH 




AGO .0FPL3' 


1467+ 


PUNCH 


.CFCL3 


ANOP' 


1468+ 


PUNCH 




OFSCLB 4,1,3,3,80E8,0,84,0' 


1469 + 


PUNCH 




AGO .DFCL4' 


1470+ 


PUNCH 


•CFPL3 


ANCP' 


1471+ 


PUNCH 


0FPL3 


DFTRfLST HRAPLST,(E2,E4) ' 


1472 + 


PUNCH 




AGO .DFPL4' 


1473 + 


PUNCH 


;lerbi 


ANOP' 


1474 + 


PUNCH 


LERB1 


LERB 3,(200,10,5,5)' 


1475+ 


PUNCH 




AGO .LERB2' 


1416 + 


PUNCH 


.0FCL4 


ANCP' 


1477 + 


PUNCH 




DFSCLB 5,2,4,1»8CE8,0,140,0' 


1478+ 


PUNCH 




AGO .DFCL5' 


1479 + 


PUNCH 


.DFPL4 


ANOP' 


1480+ 


PUNCH 


0FPL4 


DFTRMLST DIALST,0,( E2) • 


1481+ 


PUNCH 




AGC .DFPL5' 


1482+ 


PUNCH 


•LERB2 


ANOP' 


1483 + 


PUNCH 


LERB2 


LERB li(200,10,5,5)' 


1484+ 


PUNCH 




AGO .LERB3' 


1485+ 


P"UNCH 


.DFCL5 


ANOP' 


1486 + 


PUNCH 




OFSCLB 6,3,5,1,8CE8,0,168,0' 


1487 + 


PUNCH 




AGC .DFCL6' 


1488 + 


PUNCH 


• 0FPL5 


ANOP' 


1489 + 


PUNCH 


0FPL5 


DFTRMLST D1ALST, 0, ( E215 ) ■ 


149C+ 


PUNCH 




AGC .DFPL6' 


1491 + 


PUNCH 


.DFCL6 


ANOP' 



V. 
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1492+ 


PUNCH • 


1493+ 


PUNCH • 


1494 + 


PUNCH • 


1495+ 


PUNCH • 


1496+ 


PUNCH • 


1497 + 


PUNCH • 


149 8+ 


PUNCH • 


1499 + 


PUNCH • 


1500 + 


PUNCH • 


1501+ 


PUNCH • 


1502 + 


PUNCH • 


1503+ 


PUNCH ' 


1504+ 


PUNCH • 


1505+ 


PUNCH ' 


1506+ 


PUNCH • 


1507+ 


PUNCH • 


1508+ 


PUNCH • 


1509+ 


PUNCH ' 


1510+ 


PUNCH ' 


1.511 + 

■ + 
1512 + 


PUNCH ' 


PUNCH ' 


1513+ 


PUNCH • 


1514 + 


PUNCH ' 


1515 + 

+ 

1516 + 


PUNCH ' 


PUNCH • 


1517+ 


PUNCH • 


1518+ 


PUNCH ' 


1519 + 


PUNCH • 


1520+ 

+ 

1521+ 


PUNCH ' 


PUNCH ■ 


1522+ 


PUNCH • 


1523 + 

+ 

1524 + 


PUNCH ' 


PUNCH • 


1525+ 


PUNCH • 


1526+ 


PUNCH • 


1527 + 


PUNCH • 


1528 + 


PUNCH ' 


1529 + 

1530 + 


PUNCH • 


PUNCH • 


1531 + 


PUNCH ' 


1532+ 


PUNCH • 


+ 
1533 + 


PUNCH • 



OFSCLB 7,3,6,2,80E8,0,196,0' 
AGO .DFCL7' 

*dfpl6 anop' 

0fpl6 dftrmlst di alst.o, (0015) • 
Ago ,dfpl7« 

.LER83 ANOP' 

LERB3 LERB 2,(200,10,5,5)' 

AGO .LERB*' 
.0FCL7 ANOP' 

DFSCLB 8,4,7,1,80E8,0,280,0' 
AGO .DFCLB' 
.DPPL7 ANOP' 
DFPL7 DFTRMLST WRAPLST, (E215) • 

AGO .DFPL8' 
.LERB4 ANOP' 
LERB4 LERB 1,(200,10,5,5)' 

AGO .LERB5' 
.0FCL8 ANOP' 

DFSCLB 9,5,8,1,8CE8,0,308,0* 

TITLE "DFSICLLO - COMMUNICATION LINE POLLING X 
ISTS " • 

AGO .0FPL1' 
•0FPL8 ANOP' 
0FPL8 DFTRMLST WRAPLST, (40FF) • 

TITLE "DFSICLLO - COMMUNICATION LINE ERROR BLX 
OCXS' ' • 

AGO .LERB1' 
•LER35 ANOP' 
LERB5 LERB 1,(200,10,5,5)' 

TITLE "DFSICLLO - COMMUNICATION LINE GROUP OCX 
..., S " • 

0FSDCB1 OCB C<aRG=CX,MACRF=(R,WI,ERR0PT«CTRW,LERB*LER81X 
CONTINUE' 

CCN«PE»CC2740S' 
EJECT' 
DFSDC82 CCB CSORG»CX, MACRF= (R, W) , ERR0PT=CTRH,LERB=LERB2X 
CONTINUE* 

DONATE =nO2740A' 
EJECT' 
DFSDCB3 OCB CSORG=CX , MACRF« (R,W) , £RR0PT«CTRW,LERB=LERB3X 
CONTINUE' 

DDNAME=>DD1C50A« 
EJECT' 
DFSCCB4 DCB nSORG«CX,MACRF-(R,WI ,ERROPT*CTRW, LE RB-LERB4X 
CONTINUE' 

ODNAME*OD1050» 
EJECT' 
0FSCCB5 CC8 CSORG=CX,MACRF«IR,W), fPR0PT=>CTRW,LERB*LERB5X 
CONTINUE' 

DDNAME»OD22tOT' 
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1535* 


PUNCH 


1536 + 


PUNCH 


1537 + 


PUNCH 


1538+ 


PUNCH 


1539+ 


PUNCH 


1540 + 


PUNCH 


154 1 + 


PUNCH 


1542 + 


PUNCH 


1543 + 


PUNCH 


1544+ 


PUNCH 


1545+ 


PUNCH 


1546 + 


PUNCH 


1547 + 


PUNCH 


1548 + 


PUNCH 


1549+ 


PUNCH 


1550+ 


PUNCH 



1551 + 

1552 + 
1553+ 

1554 + 

1555 + 

1556 + 
+ 

1557+ 
1558 + 

1559+ 

1560 + 

1561 + 

1502 + 
156 3+ 

1564+ 
1565+ 

1566 + 

1567 + 
+ 

1568+ 
1569 + 
1570+ 
1571+ 
1572 + 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



TITLE "DFSICC80 - COMMUNICATION LINE OPEN LISX 

OFSICDBO CSECT' 

ENTRY DFSICDB' 
DFSICDB OS 00' 

OC ALKO)' 

DC AL3(DFSDCB1)' 

OC ALKO)' 

DC «L3tCFSDC82)' 

DC ALKO)' 

DC AL3(DFS0CB3I' 

DC ALKO)' 

DC AL3IDFSDCB4)' 

OC ALK128)' 

DC AL3ICFS0CB5P . 

END' 
/*• 

//STEP12 EXEC PGM=IEWL.PARM= ,, REUS,NCAL,XREF,L£ST«',REGX 
0N=110K' 

//SYSPRINT DC SYSOUT=A,DCB=URECL»121,BLKSIZE=605,RECFX 
=FBAI , X' 

// SP ACE=( 605 ,( 10,101 ,RLSF,,RCUNDI» 

//SYSLIN DO DSNAME=».STEP11.SYSGO,OISP=(OLO, DELETE)' 
//SYSOSJ OD DSNAME=ICS.CLC0,DISP=(OL0,PASS)' 
//SYSLMOD DO DSNAMF=ICS. CLOD! DFSICLLO) ,01 SP=(OLD .PASS) X 

//SYSUT1 DD UNITMSYSDA,SEP=(SYSLIN, SYSLMOD)), DISP=<X 

DELETE), X« 

// SPACE=(1700,(100,50))' 

//STEP13 EXEC PGM=IEUASM,PARM= , 'L0AD,NODECK" ,REGION=X 



2K' 
//SYSLIB DD 



// 



DD 



OSNAME=IMS.GENLIB,DrSP=(SHR,PAS$) ■ 
DSNAME*SYS1.MACLIB,DISP=(SHR,PASS)' 
UNIT=SYSDA,DISP=<,PASS),DCB=ILRECL=80,BLX 



//SYSGO 

SIZE = 400, X' 

// RECFM=FB),SPACE*<CYL,<1,1) ,RLSE) • 

//SYSPSINT DC SYS0UT = A,DCB='(LRECL=121,BLKSIZE=605,RECFX 

=FBA), X' 

// SPACE=(6C5,< 1C0,50),RLSE,,R0UND)' 

//SYSUT1 00 UNIT=SYS0A,D1SP=(, DELETE), SPACE=(1700, (IX 
00,50) ) • 

//SYSUT2 DD UNIT=SYSCA,DISP=(, DELETE), SPACE=( 17C0, (IX 
00,50) I' 

//SYSUT3 DD UNIT*! SYSDA ,SEP=( SYSLI B, SYSUT1 ,SYSUT2) ) ,X 

DISP=(, DELETE), X< 

// SPAC£=(1700,<100,501,RLSE)' 

//SYS IN 00 «■ 

CCPY PCHSSI' 

PRINT CN« 

BILL DFSCNT 0000,0, 308, BILL, 65535* 
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1573+ 
1574+ 
1575+ 
1576+ 
1577 + 
1578+ 
1579+ 
1580 + 
1581+ 
1582+ 
1583+ 
1584+ 
1585+ 
1586+ 
1567+ 

1588 + 

1589 + 
1590+ 
1591 + 
1592+ 
1593+ 
1594+ 
1595+ 
1596+ 
1597+ 
1598+ 

+ 
1599+ 
1600+ 

1601 + 

1602 + 
1603+ 
1604 + 
160 5+ 
1606+ 
1607 + 
1608+ 
1609 + 
1610+ 
1611+ 
1612 + 

1613+ 

1614+ 
1615+ 
1616+ 
1617+ 
+ 
1618+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 



CARL 
CAROL 
'DAN 

ELEANOR 
ERNE 
HOWARD 



DFSCNT 0000,0 
OFSCNT 0002,0 
DFSCNT 0002,0 
DFSCNT 0002 
OFSCNT 0000,0 
DFSCNT 0002,0 
INQUIRY1 DFSCNT 0001,0 
INQUIRY2 DFSCNT 0001,0 
JOE DFSCNT 0002,0 

LEONARD OFSCNT 0000 
L2740SM1 OFSCNT 0000,0 
L2740SM2 DFSCNT 0000,0 
L2740S1 DFSCNT 0000,0 
DFSCNT OOOC 
DFSCNT 4000,0 
OFSCNT 0000,2 
DFSCNT 0000,3 
DFSCNT 0000,0 
DFSCNT 0002,0 
DFSCNT 0002,0 
TAPEPNCH OFSCNT 0000,2 
T2780 OFSCNT 0000,0 

HTOR DFSCNT 0000 



L2740S2 

MASTER 
'M0DEL2 
'M0DEL2M 

PRINTER 
'RICHARD 

SHARRON 



,392, BUD, 65535' 

,280,CARDPNCH,MODEL2M-DFSICNT« 

,364, CARL, 65535" 

,196, CAROL, 65535' 

,224,OAN,HOWARD-0FSICNT' 

,224, ELEANOR, OAN-DFSICNT' 

,336, ERNE, 65535' 

,224, HOWARD, 65535' 

, 140, INCUIRY1, 65535' 

, 168, IN0UIRY2, 65535' 

,252, JOE, 65535' 

,336, LEONARD, ERNE-OFS ICNT • 

, 84, L2740SM1, 65535' 

, 112, L2740SM2, 65535' 

, 56, L2740S1 ,65535' 

, 28, L2740S2, 65535' 

,56,MASTER,L2740S1-0FSICNT' 

,280,M00EL2,CARDPNCH-DFSICNT« 

, 280, M0DEL2M, 65535' 

,280,PRINTER,T2780-0FSICNT' 

, 252, RI CHARD, JOE-DFSICNT* 

,252, SHARRON, RICHARD-DFSICNT' 

,280, TAPEPNCH, MODEL 2-DFS ICNT* 

,280,T2 780,TAPEPNCH-DFStCNT' 

,0,WTOR, 65535' 



TITLE "OFSICTMO - COMMUNICATION TERMINAL MATRX 



■OFSICTMO CSECT' 

ENTRY DFSICTM' 
•D<=SICTM OS CD' 

'CTMR0W1 DC 



•CTMR0H2 DC 



END' 



•00000000' 
•OCOOOOOO' 
■01000000' 
•01000000' 

•11111111' 

•llllllll' 
•llllllll' 

•1C0O00OO' 



//STEP14 EXEC PGMMEWL,PARM="REUS,NCAL,XREF,LIST",REGX 
0N=110K' 

//SYSPRINT DC SYS0LT=A,DCB=ILRECL*121,BLKSIZE="6O5,RECFX 
M=F8A), X' 

// SPACE=(605,(10,10),RLSE,,ROUNO)' 

//SYSLIN OD DSNAME=*.STEP13. SYSGO, OISP=(OLD, DELETE)' 
//SYSOBJ OD DSNAME*ICS. CLOD, DISP=(OLD, PASS)' 
//SYSLMCD CO DSNAME*ICS.CLCD(DFSICNTO),DISP=(OLD,PASS)X 



PUNCH '//SYSUT1 DD UN I T=( SYSDA, SEP= I SYSLIN, SYSLMOD) ) ,DI SP»( X 
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1619 + 

1620 + 
+ 

1621* 
1622+ 
1623+ 

+ 
1624+ 
1625+ 

+ 
1626+ 
1627 + 



1629 + 
+ 

1630 + 
16 31+ 

1632 + 

1633 + 
1634+ 
1635 + 
1636+ 
1637+ 

1638 + 

1639 + 
164C+ 
1641 + 
1642+ 
1643+ 
1644 + 
1645* 
1646+ 

1647 + 

1648 + 

1649 + 
165C+ 
1651+ 
1652 + 
1653+ 

♦ 
1654+ 

+ 
1655 + 
1656+ 
1657+ 
1658 + 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 



.DELETE) , 

•// 
//STEP15 

92K' 
//SYSL1B DD 
// CD 
//SYSGO OD 

KSIZE-400, 

'// 
//SYSPRINT DD 

M-FBA), 

'// 
//SYSUT1 DD 

00.50))' 
//SYSUT2 DD 

00,50))' 
//SYSUT3 CC 
ISP-I, DELETE) , 

'// 

DD 
COPY 



SPACE-U70C, (100, 50)1' 
EXEC PGM=TEUA3M,PARM-"L0AD,N0DECK' 



OSNAME-IMS.GENLIB.DISP-tSHR.PASS) • 
DS NAME- SYS l.M ACL IB.DISP* ( SHR, PASS) ' 
UNIT-SYSDA,DISP=(,PASS),DCB*(LREi:L-80,BLX 
X' 

RECF*=FB),SP«CE=(CYL,(1, D.RLSEI' 
SYS0LT-A,DCB-(LRECL=121,BLKSIZE=605,RECFX 
X' 

SPACE- (605, (100, 50 l.RLSE,, ROUND >• 
UNI.T-SYSDA.DI SP = ( .DELETE ) ,SPACE= ( 1 700, { IX 

UNI T=SYSC», C I SP=(,CELETE), SPACE- (1700, (IX 

UNIT=(SYSDA,SfcP=(SYSLlP.SYSUTl,SYSUT2)),X 



SPACE=(17CC,( 100,50) .RLSEI ' 



//SYSIN 



PCHSSl' 
PRINT ON* 

DFSCTB 0,1,E215,00 00, 1600, 1,1050' 
DFSCTB 2,2,E2B1,0000, 1024,2 ,2740' 
ENTRY DFSCTBMT • 
■DFSCTBMT EOU *• 

DFSCTB 2, 3, E2B1, 4000, 1088,3,2740* 
OFSCTB 2, 4, E 2 81, OCOC, 83 2,4,2740' 
DFSCTB 2, 4, £481,0000, 896, 5, 2740' 
DFSCTB 4,5,E2El,CCO0,576,6,274O' 
DFSCTB 5, 6, £202,0000,640, 7, 1050' 
DFSCTB 5, 7, 0002, 2 000, 256, 8, 1050, NONE' 
OFSCTB 5,7,0002, 2000,3 84,9, 1050, NONE' 
OFSCTB 5, 7, 0002, 2000, 1408, 10, 1050, NONE' 
DFSCTB 7,8,E2C2,00O0, 1280,11,1050' 
DFSCTB 0, 9, 40A0, 0000,0, 12,2260' 
DFSCTB C,9,40A1,0000,768,13,2260' 
DFSCTB C, 9, 4CA 2, 0000, 192, 14, 2260" 
OFSCTB 0, 9, 40A3, 0000, 64, 15,2260' 
ENO' 
■/*• 
//STEP16 EXEC PGM-IEWL,FARM="REUS,NCAL,XREF,LIST",REGX 
ION-110K* 
//SYSPRINT OC SYSOUT=A,OCR=(LRECL=121,BLKSI7.E=605,RECFX 
l-FBA), X' 

/./ SPACE=(6C5,<10,10),RLSE,,RCUNr>)' 

//SYSLIN DO DSNAME-*. STEP15. SYSGO, DISP-IOLD. DELETE) • 
//SYSCBJ 00 DSNAME=ICS.CLCD,0ISP=(OLD,PASS)' 
//SYSLMOD DD DSNAME-ICS.CLCD(DFSICTBO) ,DI SP- (OLO,PASS IX 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



f 



LCC OBJECT CODE ADDRl ADDR2 



STMT 

1659+ 
+ 
166C+ 
1661+ 
+ 
1662+ 
1663+ 

1664 + 
+ 

1665 + 
1666+ 

+ 
1667 + 
1668+ 

+ 
1669+ 

1670 + 

+ 
1671+ 
1672+ 
1673+ 
1674+ 
1675+ 

♦ 
1676+ 

+ 
1677+ 

+ 
1678+ 
1679+ 

+ 
168C+ 
1681+ 
1682+ 

+ 
1683 + 

+ 
1684+ 

+ 
1685 + 

1686+ 

+ 
1687+ 

+ 
1688+ 

+ 
1689+ 



SOURCE STATEMENT 
PUNCH 



F30SEP69 2/12/70 
UNIT-I SYSDA,SEP=<SYSLIN, SYSLMOD) ),OISP=<X 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 



//SYSUT1 DD 
DELETE), X' 

// SPACE=(1700,(100,50))' 

//STEP17 EXEC PGN=IEUASM,PARM="LCAO,NODECK 
92K' 



DSNAfE-IPS.GENLIB.DISP-ISHR.PASS)' 
DSNAME=SYSl.MACLIB,DISP=(SHR,PASS)' 
UNIT=SYSDA,DISP=(.PASS),DCB=(LRECL-80,BLX 
X' 

RECFM=FB),SPAC£ = (CYL,(1,1) ,RLSE) • 
SYS0UT-A,0CB = (LRECL»121,RLKSIZE=605,RECFX 
X' 

SPACE=1605, ( 1CO,50),RLSF,,ROUNO) , 
UNIT-SYS DA, D IS P=(, DELETE), SPACE- (1700, (IX 

UNIT-SYS CA, D ISP- (, DELETE ),SP ACE- (17C0,{ IX 

UNIT=(SYSDA,SEP-(SYSLIB,SYSUT1,SYSUT2)),X 

X' 

SPACE- (1700, (100, 50 l.RLSE)' 



•//SYSLIB DD 

■// on 

"//SYSGO DD 
<SUE-40C, 
•// 
//SYSPRINT DC 
-FBA) , 
// 

//SYSUT1 DD 
00,501) • 

//SYSUT2 DD 
00,50))' 

//SYSUT3 DO 
DISP-I. DELETE), 
'// 
//SYSIN DD *• 

COPY PCHSSl' 
PRINT CN' 
CTT2260 ICTTG IDLTAB-I 40,80) ,IDLNL-(0A,01) ,1 0LLF*(40,8X 
OI.LLINE-84, X' 

LTC-C, OPT- (TERMINAL, VALID, FIRST, TUB E.VALX 
CNOCARRG, X' 

STACTL,NCSWITCH),TREC»IECTRSCl,TSND=IECTX 
SSCI.NTRYL-3. X' 

SPACE-SPCRT.BUFSZ-1000' 
CT.T7770 ICTTG CPT- (TERMINAL, VALID. FIRST, NOTUBE. VALID, NOX 
CARRG.STACTL, X' 

SWITCHED), LTC-2.TR EC- I ECTRF40, BUFSZ* 132' 
CTT2740S ICTTG TREC-IECTRF40.NTRYL-2' 

CTT2740N ICTTG OPT-ITERMINAL, VALID, FIRST, NOTUBE.INVALIDX 
CARRG, X' 

NOSTACTL.N0SWITCHI.TREC-1ECTRF40.NTRYL-OX 

'CTT2740A ICTTC OPT-ITERPINAL, INVAL ID, FIRST, NOTUBE, INVALX 
ID, CARRG, X' 

NOSTACTL, SWITCHED I, TREC-IECTRF 40, NTRYL-2X 

CTT1050A ICTTG OPT-ICCMPCNT, I NVALIO, FIRST .NOTUBE, INVALIX 
D, CARRG.STACTL, X' 

SWITCHED),TREC=IECTRF50,TSND=IECTSD50,NTX 
YL-3' 

CTT1050N ICTTC OPT= (COMPONT, INVAL ID, FIR ST.NOTUBE .INVALI X 
i, CARRG, X' 

NOSTACTL, NOSWITCH) , TREC-IECTRF 50 ,TSND=I EX 
CTS050.NTRYL-3' 
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1691 + 
+ 

1692 + 
1653* 
1694 + 
1695* 
1696+ 
1697* 

+ 
16S8 + 

+ 
1699+ 
1700* 
1701 + 
17C2+ 

+ 
1703+ 

♦ 
17C4 + 

1705 + 
+ 

1706 + 
1707+ . 
1708 + 

+ 
17C9 + 
1710 + 

1711+ 

1712+ 

+ 

1713 + 
+ 

1714 + 
+ 

1715 + 
1716+ 
1717+ 
1718 + 
1719+ 
1720+ 
1721 + 
1722+ 
1723 + 
1724+ 
1725+ 
1726 + 
1727+ 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



CTT1050S ICTTG OPT-ICCMFONT i INVALIO.F IRST tNOTUBE, INVALIX 
D.CARRG.STACTL, X' 

NOSmTChl,TREC«IECTRF5O,TSND-IECTSD50,NTX 
RYL»3' 
CTT2740B ICTTG TREC-I ECTRF40.NTRYL-3' 

ASKTFTAB RF40 ,SC50 ,RF50, RSC1 ■ 
COPY TRATABLE • 
ENO ■ 
/*■ 

//STEP18 EXEC PGM»IEWL,PARM-"REUS,NCAL.XREF,LIST",REGX 
0N»110K' 

//SYSPRINT DC SYS0UT»«,CCB«(LRECL-121.BLKSIZE«605,RECFX 
*FBAI, X' 

// SPACE" (605, (10, 10 I, RLSE,, ROUND)' 

//SYSLIN OD DSNAME-*.STEP17. SYSGO, 0ISP»(OLD, DELETE)' 
//SYSORJ 00 OSNAME-ICS. CLOD, DISP«(OLD, PASS) ■ 
//SYSLMOD CO CSN*PE»ICS.CL0Dt0FSICTT0l,DISP»(OL0,PASS)X 



//SYSUT1 DO 
OELETEIt X' 

// SPACE=I17C0,(100,50)>' 

//STEP19 EXEC PGM-IEUASM,PARM»"LOAD,NODECK" 
92K' 
//SYSLIB DO OSNAME»IMJ.GENLIB,DISP»(SHR,PASSI 



UN IT" (SYSDA, SEP" (SYSLIN, SYSLMOD I ),DISP-(X 
REGION-X 



DSN»ME-SYSl.MACLIB,DISP-(SHR,PASS)' 
UNIT»SYSDA,DISP=(,PASS),DCB=<LRECL«80,eLX 



SPACE" (605, (100,50 It RLSEn ROUND I • 

UN I T=SYSDA, 01 SP=(, DELETE), SPACE- ( 1700, I IX 



UNIT«SYSCA, 1 SP=(. DELETE ),SP ACE" { 1700, (IX 
UN 1T= ( SYSOA, SEP"" ( SYSL IB, SYSUT I.SYSUT2) ) , X 



// 00 

//SYSGO OD 
SIZE=>400, X« 

// RECFH-FB),SPACE"(CYL,(1, ll.RLSE)' 

//SYSPRINT OD SYS0UT*A,DCB"(LRECL=121,BLKSIZE"605,RECFX 
M»FBA), 
// 

//SYSUT1 DO 
00,50))' 

//SYSUT2 DD 
00,50)) ■ 

//SYSUT3 00 
DISP-I, DELETE) , X' 
// SPACE»(1700,(100,50),RLSE) 

//SYSIN DD *• 

COPY PCHSSI' 

PRINT ON' 

CVBG /START, CL40,CTM=0' 

CVBG /STOP,CL40,CTM»0' 

CVBG /PSTOP,CL40,CTM=0' 

CVBG /PURGE. CL40,CTM=0' 

CVBG /DISPLAY, CLD0,CTM"0' 

CVBG /RCISPLAY.CLDO' 

CVBG /CHANGE, CL60,CTM=0' 

CVBG /ASSIGN, CL70,CTM=0' 

CVBG /DELETE, CL80,CTM=0' 
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1728 + 


PUNCH 




CVBG 


1729 + 


PUNCH 




cveG 


1730+ 


PUNCH 




CVBG 


1731 + 


PUNCH 




CVBG 


1732 + 


PUNCH 




CVBG 


1733+ 


PUNCH 




CVBG 


1734+ 


PUNCH 




CVBG 


1735+ 


PUNCH 




CVBG 


1736 + 


PUNCH 




CVBG 


1737 + 


PUNCH 




CVBG 


1738+ 


PUNCH 




CVBG 


1739+ 


PUNCH 




CVBG 


1740+ 


PUNCH 




CVBG 


1741 + 


PUNCH 




CVBG 


1742 + 


PUNCH 




CVBG 


1743+ 


PUNCH 




cveG 


1744+ 


PUNCH 




CVBG 


1745 + 


PUNCH 




CVBG 


1746+ 


PUNCH 




END* 


1747 + 


PUNCH 


'/*■ 




1748 + 


PUNCH 


•//STEP20 


EXEC 


♦ 




I0N-110K' 




1749 + 


PUNCH 


'//SYSPRINT DO 


+ 




M=FBA), 




1750+ 


PUNCH 


«// 




1751 + 


PUNCH 


•//SYSLIN 


00 


1752+ 


PUNCH 


•//SYSOBJ 


DO 


1753+ 

♦ 
1754+ 


PUNCH 


■//SYSLMOD DD 


PUNCH 


•//SYSUT1 


DD 


+ 




.DELETE), 




175 5 + 


PUNCH 


■// 




1756+ 


PUNCH 


•//STEP21 


EXE 


♦ 




92K' 




1757+ 


PUNCH 


•//SYSLIB 


DC 


1758+ 


PUNCH 


•// 


OD 


1759 + 


PUNCH 


•//SYSGO 


00 


+ 




KSIZE=400 




1760+ 


PUNCH 


•// 




1761 + 


PUNCH 


•//SYSPRINT DD 


+ 




M«FBA> , 




1762 + 


PUNCH 


«// 




1763 + 


PUNCH 


•//SYSUT1 


DD 


+ 




00,501 )• 




1764 + 


PUNCH 


•//SYSUT2 


00 


+ 




00,50))' 




1765+ 


PUNCH 


•//SYSUT3 


DO 


♦ 




OISP=(, DELETE) 


1766+ 


PUNCH 


•// 




1767+ 


PUNCH 


•//SYSIN 


OD 



/BR0AnCAST,CL10,CTM»4' 

/CHECKP0INT,CL20,CTM=0« 

/D80UMP,CL20,CTM=O' 

/L0CK.CL9O' 

/UNLOCK, CL90' 

/TEST,CL50,TP"80« 

/EXCLUSIVE, CL50,TP"80 • 

/EN0,CL50,TP-80' 

/LCG.CLPO' 

/CANCEL, CLP0,TP=C0 • 

/OBLCG,CL40,CTM-0' 

/DBNCLOG,CL40,CTM=0' 

/NRESTART,CL20,TP*20,CTM=0' 

/ERESTART,CL20,TP»20,CTH"0' 

/DBRECOVERY,CL20,CTH=0' 

/IAM.CLAO' 

/SET.CLEO' 

/RESET, CLE0,TP=80 • 



PGM=IEWL,PARM="REUS,NCAL,XREF,LIST",REGX 

SYS0LT-A,DCe»(LRECL=121,BLKSIZE«605,RECFX 

X' 

SPACE" (605, (10, 10), RLSE,, ROUND)' 
;NAME=*.STEP19.SYSGO,0ISP»(OLD,DELETEI' 
OSN AME-ICS. CLOD, ISP" (OLD, PASS >• 
DSNAPE"ICS.CLCD(DFSICVBO),0 ISP" (OLD, PASS)X 

UNIT=(SYS0A,SEP=(SYSLIN,SYSLMOD)),0ISP»(X 
X« 

SPACE=( 1700,1 100,50))' 
PGF"I EUASM, PARM»"LOAD,N00ECK ■ • ,REG10N«X 

DSNAME»IMS.GENLIB,DISP-(SHR,PASS>' 
DSNAME»SYS1.MACLIB,DISP-ISHR,PASSI' 
UNIT=SYSDA,DISP=( .PASS) ,DCB»(LRECL»BO, BLX 
X' 

RECFM»FB ),SPACE=(CYL, (1,1), RLSE >• 
SYSOUT»A,OCB»(LRECL-121,BLKSIZE-605,RECFX 
X' 

SP ACE = (605, (ICO, 501, RLSE,, ROUNO)' 
UNI T=SYSDA,DISP»(, DELETE), SPACE" (1700, (IX 

UNI T-SYSDA, 01 SP = (, DELETE), SPACE-UTOO, { IX 

UNIT" (SYS DA, SEP" (SYSLIB, SYSUT1.SYSUT2I ) ,X 

X' 

SP ACE=( 1700, (100, 50), RLSE) ■ 
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1768* 
1769+ 
1770+ 
1771 + 
1772+ 
1773+ 
1774+ 

1775 + 

1776 + 
1777+ 

1778 + 

1779 + 
1780+ 
1781 + 

+ 
1782+ 
1783+ 
1784 + 
1785+ 
1786 + 
1787+ 
1788+ 
1789 + 
1790+ 
1791 + 
1792+ 
1793+ 
1794+ 
1795 + 
1796+ 
1797+ 
1798+ 
1799+ 

1800 + 

1801 + 
1802+ 
1803 + 
1804+ 
1805+ 
1806 + 
1807+ 
1808+ 
1809 + 
181C+ 

1811 + 

1812 + 
1813+ 
1814+ 
1815 + 
1816+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH . 
PUNCH 
PUNCH 



COPY PCHSSI' 

PRINT ON' 
TITLE "DFSISORO 
'OFSISOBO CSECT' 

ENTRY 0FSIS08' 
'DFSISD8 



SECURITY DIRECTORY BLOCKS' 



DC 

MASTER CTB' 
SPBL DC 



00' 

A(SMRL-CFSISDB) 

A(CNTL-CFSISOB) 

AIDMDL-DFSISDBI 

AIPSRL-DFSISD8) 

AICVBL-DFSISDB) 

A1CTBL-DFSISDB) 



OFFSET TO SM8 LIST' 
OFFSET TO CNT LIST' 
CFFSET TO DMO LIST' 
OFFSET TO PSB LIST' 
CFFSET TO CVB LIST' 
OFFSET TO CTB LIST 



AIMASTER-DFSISD6) OFFSET TO MASTER CNT' 
A( <CT8L-DFSIS0B)+I(2-1)*5)> OFFSET TC 

AL2USMBLE-SMBLL)/L"SMBLL,L"SMBLLI • 

CCL8' 

CL8"«<" ' 

CL8"ADDI" • 

CL8"AD0I.NV" • 

CL8"ADCPART" • 

CL8"ACDPN" • 

CL8"CL0SE" • 

CL8"CLS0RD" • 

CL8"!)FS" ' 

CL8' 'DFSIBDRS" ' 

CL8"0ISE" ' 

CL8"13ISBURSE" ' 

CL8"DLETI'' • 

CL8"DLETINV" • 

CL8"0LETPART" ' 

CL8"0LETPN" • 

CL8"DLI" ■ 

CL8"DLN" • 

CL8"DSPALLI" « 

CL8"0SP1NV" • 

CL8"0SPPN" ■ 

CL8"EN0" ' 

CL8"ICS" • 

CL8"IMS" • 

CL8"INVT0RY" ' 

CL8"N0P" • 

CL8"PART" • 

CL8"RJE" • 

CL8"SKH1" • 

CL8"SKI1" ■ 

CL8"SKI2" ' 

CL8"SWI" ' 

CL8"SWIER" • 

CL8"SKIPASS" • 



IMS/3SC SYSTEM DEFINITION SPECI F IC AT ICNS 



LOC OBJECT CCDE 



ADDR1 AD0R2 STMT SOURCE STATEMENT 
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1817+ 


PUNCH • 


DC 


CL8"SWIPR" ' 


1818+ 


PUNCH • 


CC 


CL8"SWITS" • 


1819 + 


PUNCH • 


DC 


CL8"SWN" ■ 


1820+ 


PUNCH • 


DC 


CL8"SW1" ' 


1821+ 


PUNCH • 


DC 


CL8"SW2" • 


1822+ 


PUNCH • 


DC 


CL8"TPPLl" ' 


1823 + 


PUNCH • 


CC 


CL8"TPPL2" ' 


1824+ 


PUNCH ' 


DC 


CL8"TUBE" • 


1825+ 


PUNCH 'SMBLE 


EQU 


*• 


1826+ 


PUNCH 'CNTL 


DC 


AL2UCNTLE-CNTLL) 


1827+ 


PUNCH 'CNTLL 


OS 


0CL3' 


1828 + 


PUNCH • 


CC 


CL8"BILL" • 


1829+ 


PUNCH • 


OC 


CL8"BUD" • 


1830+ 


PUNCH • 


DC 


CL8"CARDPNCH" ■ 


1831 + 


PUNCH « 


OC 


CL8"CARL" • 


1832+ 


PUNCH • 


CC 


CL8"CAR0L" • 


1833+ 


PUNCH • 


DC 


CL8"DAN" ■ 


1834+ 


PUNCH • 


DC 


CL8"ELEAN0R" • 


1835+ 


PUNCH • 


DC 


CL8"ERNE" ' 


1836+ 


PUNCH ' 


DC 


CL8"H0WAR0" • 


1837+ 


PUNCH • 


DC 


CL8"INQUIRY1" • 


1838+ 


PUNCH ' 


DC 


CL8" INQUIRY2" • 


1839+ 


PUNCH • 


DC 


CL8"J0E" ' 


1840+ 


PUNCH • 


DC 


CL8"LE0NARD" • 


1841+ 


PUNCH • 


DC 


CL8"L2740SM1" ' 


1842 + 


PUNCH • 


OC 


CL8"L274CSM2" • 


1843+ 


PUNCH ■ 


DC 


CL8"L2740S1" • 


1844+ 


PUNCH • 


DC 


CL8"L2740S2" ' 


1845+ 


PUNCH 'MASTER 


DC 


CL8"MASTER" ' 


1846+ 


PUNCH ' 


DC 


CL8"M0DEL2" • 


1847+ 


PUNCH • 


DC 


CL8"M0DEL2M" • 


1848+ 


PUNCH • 


DC 


CL8"PRINTER" • 


1849+ 


PUNCH ■ 


DC 


CL8' 'RICHARO" • 


1850+ 


PUNCH • 


DC 


CL8"SHARR0N" ' 


1851 + 


PUNCH ' 


DC 


CL8"TAPEPNCH" « 


1852+ 


PUNCH • 


DC 


CL8"T2730" « 


1853+ 


PUNCH • 


DC 


CL8"WT0R" • 


1854+ 


PUNCH 'CNTLE 


EQU 


*i 


1855 + 


PUNCH 'DMOL 


DC 


AL2MDMDLE-DMDLL) 


1856 + 


PUNCH 'OMDLL 


OS 


0CL8' 


1857+ 


PUNCH ■ 


CC 


CL8"DFSIBDRT" • 


1858+ 


PUNCH • 


DC 


CL8"0l21IRJE" • 


1859 + 


PUNCH • 


OC 


CL8"DI21PART" • 


1860+ 


PUNCH • 


DC 


CL8"OI31PH01" ' 


1861 + 


PUNCH • 


DC 


CL8' "DI31PH02" ' 


1862 + 


PUNCH • 


CC 


CL8"DI31SK01" ■ 


1863 + 


PUNCH ' 


DC 


CL8"0I32SK01" ' 


1864+ 


PUNCH • 


DC 


CL8"0S31SK01" • 


1865+ 


PUNCH ' 


DC 


CL8"DS40JC01" • 


1866+ 


PUNCH 'DMDLE 


EQU 


*• 



■DMDLL,L"CMDLL) 
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1867 + 
1868+ 
1869 + 
1870+ 

1871 + 

1872 + 

1873 + 
18 74 + 
1875 + 
1876+ 
1877 + 
1H7B + 
1879+ 
1880+ 
1881 + 
1882+ 

1883 + 

1884 + 

1885 + 

1886 + 
1887+ 
1888+ 
1889 + 
1890+ 
1891+ 
1892 + 
1893+ 
1891 + 

1895 + 

1896 + 

1897 + 
1898+ 

1899 + 

1900 + 
1901+ 
1902+ 
1903 + 
1904+ 
1905 + 
1906+ 

1907 + 

1908 + 

1909 + 
1910+ 
1911 + 
1912+ 

1913 + 

1914 + 
1915+ 
1916 + 



PUNCH 


PSBL DC 


AL2((PSBLE-PSBtD/L' 


'PSBLL, L 


PUNCH 


PSBLL DS 


0CL8" 




PUNCH 


DC 


CL8"DFSIBDR0" ■ 




PUNCH 


DC 


CL8"DFSLKM00" ■ 




PUNCH 


DC 


CL8"DFSSAM02" • 




PUNCH 


DC 


CL8"r>FSSAM03" • 




PUNCH 


DC 


CLB"0FSSAM04' ■ • 




PUNCH 


DC 


CL8"OFSSAM05" ■ 




PUNCH 


DC 


CL8"DFSSAM06" ' 




PUNCH 


CC 


CL8"DFSSAM07" • 




PUNCH 


DC 


CL8>'ENQ0SK01•■ • 




PUNCH 


DC 


CL8"HIBASK01" • 




PUNCH 


CC 


CL8"HIBLSK01" • 




PUNCH 


DC 


CL8"HIMAJC01" ■ 




PUNCH 


DC 


CL8 ,, HIMAJC02' • • 




PUNCH 


OC 


CL8"HIMAJC03" • 




PUNCH 


DC 


CL8"HIMARJ01" • 




PUNCH 


CC 


CL8"HIMASN01" • 




PUNCH 


OC 


CL8"HITASK01" • 




PUNCH 


DC 


CL8"HITASK02" ■ 




PUNCH 


DC 


CL8"HSBASK01" ■ 




PUNCH 


DC 


CL8"HSTASK01" • 




PUNCH 


DC 


CL8"N0PSB" • 




PUNCH 


DC 


CL8"SWITCH" • 




PUNCH 


PSBLE EQU 


*> 




PUNCH 


CVBL DC 


AL2KCVBLE-CVBLLI/L' 


•CVBLL, L 


PUNCH 


CVBLL DS 


0CL10' 




PUNCH 


DC 


CLIC'STAKT'" 




PUNCH 


OC 


CL10"ST0P'" 




PUNCH 


DC 


CLIO' ■ PSTOP' • • 




PUNCH 


DC 


CLIO" 'PURGE'" 




PUNCH 


OC 


CLIC'DISPLAY"' 




PUNCH 


DC 


CL10"RDISPLAY'" 




PUNCH 


DC 


CLIC'CHANGE" ' 




PUNCH 


DC 


CL10"ASSIGN"« 




PUNCH 


DC 


CL10"DELETE'" 




PUNCH 


DC 


CL10"BR0ADCAST'" 




PUNCH 


DC 


CL10"CHECKP0INT' " 




PUNCH 


DC 


CL10"DB0UMP"« 




PUNCH 


DC 


CL10"LOCK"« 




PUNCH 


DC 


CLIO" UNLOCK'" 




PUNCH 


OC 


CL10"TEST'" 




PUNCH 


DC 


CL10"EXCLUSIVE'" 




PUNCH 


DC 


CL1Q"ENC" 




PUNCH 


DC 


CL10"LOG"' 




PUNCH 


DC 


CL10"CANCEL"« 




PUNCH 


DC 


CL10"DBL0G«" 




PUNCH 


CC 


CL10"DBNQL0G"' 




PUNCH 


DC 


CL10"NRESTART'" 




PUNCH 


DC 


CL10"ERESTART'" 
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1917 + 
1918+ 
1919 + 
1920+ 

1921 + 

1922 + 
1923+ 
1924 + 
1925+ 
1926+ 
1927 + 
1928+ 
1929+ 

1930 + 

1931 + 

1932 + 

1933 + 

1934 + 

1935 + 

1936 + 
1937+ 
1938+ 
1939 + 
1940+ 
1941 + 

1942+ 
+ 

1943 + 

1944 + 

1945 + 
1946+ 

♦ 

1947 + 
+ 

1948 + 

1949 + 

1950+ 
1951 + 
1952+ 



1955 + 

1956 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



PUNCH 
PUNCH 



CLIO^'DBRECOVERY' 
CLIO" I AM'" 
CLIO" SET"' 
CL10"RESET"' 



DC 
END' 

/*' 

//STEP22 EXEC 

ON=110K" 

//SYSPRINT OD 

=FBA), 

// 

//SYSLIN DO DS 

//SYSOBJ DD 

//SYSLMCD DD 



OF' 

AL2I15.5) 
C '001E2' 
C"002E2' 
C003E2' 
C004E2' 
C '004E4' 
C005E2' 
C006E2' 
C '00700' 
C" '00700' 
C '00700' 
C '0O8E2' 
C '009A0' 
C 'CC9A1' 
C '009A2' 
C009A3' 



S/360 OPERATOR"S CONSOLE' 



PGM=1EHL,PARM=' 'REUS, NCAL.XREF, LIST' ■ ,REGX 

SYSGUT=A,DCB»(LRECL-121,BLKSIZE=605,RECFX 

X' 

SPACE=(605, (10,10 l.RLSE,, ROUND)' 
NAME=*.STEP21.SYSGCDISP-(0LD,0ELETE)« 
DSNAME' ICS. CLOD, DISP = ( OLD, PASS)' 
DSNAME=ICS.CLOD(DFSISDBO),DISP=(OLD,PASS)X 

UNIT=( SYSDA,SEP=(SYSLIN,SYSLMODI ) ,DISP=(X 



//SYSUT1 DD 

DELETE), X* 

// SPACE=(17.00,(100,50))' 

//STEP23 EXEC PGM=I£UASM,PARM="L0A0,N0DECK" ,REGION=X 
92K' 

//SYSLIB DD DSNAKE=IKS.CENLIB,DISP=(SHR,PASS)' 

// DD DSNAME=SYS1.MACLIB,DISP=(SHR,PASSI* 

//JYSGO DD UNIT=SYSCA,0ISP=(,PASS),DCB"(LRECL-80,BLX 

SIZE=400, X' 

// RECFM=FB),SPACE=(CYL,(1,1),RLSE)' 

//SYSPRINT DC SYSOUT=A,DCB=(LRECL=121,BLKSIZE=605,RECFX 
M=FBA), X' 

SPACE=(6C5, (100, 50), RLSE,, ROUND)' 
UNIT*SYSCA,DISP=(.DELETE),SPACE=(1700, (IX 



//SYSUT1 DD 
00,50))' 
• //SYSUT2 DD 
00,50)) ■ 



UN IT=SYSDA,DISP=(, DELETE), SP ACE=( 17C0,( IX 
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IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CODE ADDR1 AD0R2 



STMT 

1958 + 
+ 
1959* 
1960+ 
1961+ 

1962 + 

1963 + 
1964+ 
1965 + 
1966+ 

+ 

1967 + 
+ 

1968 + 

1969 + 
1970+ 
1971+ 

1972+ 

+ 

1973 + 

1974+ 

+ 

1975+ 

1976+ 

1977 + 

+ 

1978+ 

1979+ 

198C + 

1981 + 
+ 

1982 + 
♦ 

1983+ 

1984+ 
1985+ 
1986 + 
1987+ 
1988+ 
1989 + 
199C+ 
1991+ 

♦ 
1992+ 

+ 
1993+ 
1994 + 



SOURCE STATEMENT 



PUNCH '//SYSUT3 DO 

DISP«(, DELETE) 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 



'// 

'//SYSIN 



■ /*• 



F30SEP69 

UN I T*(SYSDA,SEP=( SYSLIB, SYSUTl, SYSUT2)),X 

X' 

SPACE=I 1700 » (100,50) ,RLSE)' 



00 *• 

CCFY PCHSSI' 

PRINT ON' 

OFSAVARA 12»EVENTS=14,SECTYPF=CSECT' 

END' 



//STEP24 EXEC PGMMEWL, PARM= "REUS.NCAL ,XREF,LI ST" ,REGX 
ON-110K' 

//SYSPRINT DC SYS0LT=A,DCB«(LRECL=121,BLKSIZE=605,RECFX 
M-FBA), X' 

// SPACE«(6C5, (10,10) ,RLSE, ,RCUND)' 

//SYSLIN CD 0SNAME=«*.STEP23. SYSGO, OISP=(OLD, DELETE)' 
//SYSOBJ OC CSNAME-ICS. CLOD, DISP-tOLO, PASS)' 

//SYSLMOD DD DSNAME<=ICS.CLCD(DFSISAVO) ,DISP=(OLD,PASS)X 



UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),DISP=(X 
,REGION=X 



//SYSUTl DC 
, DELETE), X' 

SPACE-! 17CC,(1C0,5C))' 
//STEP25 EXEC PGK- I EUASM,PARM="LCAO, NODECK • 
I2K' 
//SYSLIB CO CSNAME=IMS.GENL IB,DISP=(SHR,PASS>' 

00 DSNAME=SYS1.MACLIB,0ISP=(SHR,PASS)' 

//SYSGO DD LNIT=SYSDA,DISP-( ,PASS) ,DCB=(LRECL=80, BLX 

KSIZE-400, X* 

// RECFM-F8I,SPACE=(CYL,(1,1) ,RLSE)' 

'//SYSPRINT OD SYS0UT=A,DCB=(LRECL=121,BLKSIZE-6O5,RECFX 
M-FBA), X' 

SPACE=(60 5,(1C0,50) ,RLSE. .ROUND) • 
//SYSUTl DD UNIT = SYSDA,DISP=(, DELETE), SPACE-I17C0, (IX 

GO, 50))' 

//SYSUT2 DD UNIT-SYSDA.DISP-I, DELETE), SPACEM17C0, (IX 

00,501)' 
//SYSUT3 DD UNIT-(SYSDA,SEP=(SYSLIB, SYSUTl, SYSUT21 J, X 

IISP*( .DELETE) , X' 

// SPACE=(17CC, (100,5O),RLSE)' 

//SYSIN DD *' 

COPY PCHSSI' 
PRINT ON' 

DFSIPST REGICNS-3' 
END' 
/*• 

.//STEP26 EXEC PGM«IEHL,PARM="REUS.NCAL,XREF,LIST",REGX 
ION-llOK' 
//SYSPRINT DC SYSGUT=A,DCB-ILRECL«121,BLKSIZE-605,RECFX 
l-FBA), X' 

'// SPACE" (6C 5, (10,10 l.RLSE,, ROUND)' 

//SYSLIN OD DSNAME-*. STEP25. SYSGO, CISP- (OLD, DELETE) ' 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



V 



LOC OBJECT CODE A0DR1 ADDR2 STMT SOURCE STATEMENT 
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19S8 + 
1999+ 
♦ 
2000+ 
2001 + 
2002+ 

2003 + 

2004 + 
+ 

2005+ 
2006+ 

+ 
2.007+ 

+ 
2008 + 

+ 
2009+ 
2010 + 
2011+ 

2012 + 

2013 + 
2014+ 
2015 + 
2016+ 

+ 

2017 + 
+ 

2018 + 

2019 + 
202C+ 
2021 + 

+ 
2022+ 



2025 + 
2026+ 
2027 + 
+ 
2028+ 
2029+ 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 



DSNAME- ICS. CLOD, DISP-I OLD, PASS) ■ 
0SNAME=ICS.CLOD(DFSIPST0),DISP« (OLD, PASS) X 

//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLlN,SYSLMOD)),DISP«(X 

DELETE), X' 

// SPACE=(1700,(100,50))' 

//STEP27 EXEC PGM=IEUA$M,PARM-"LCAD,NOD£CK' • ,REGI0N=X 
92K' 
//SYSLIB DD DSNAME»IMS.GENLIB,DISP=(SHR,PASS)« 
// OD 0SNAME=SYS1.MACLIB,DISP=(SHR,PASS)« 

UNIT-SYSCA,DISP=(,PASS),CCe=(LRECL=80,BLX 



//SYSGO DD 

SIZE-400, 

II 

//SYSPRINT DD 

=FBA), 

II 

//SYSUTl DD 
00,501)' 

//SYSUT2 DO 
00,50)1 • 

//SYSUT3 DD 

ISP-(, DELETE), 

II 

//SYSIN DO 



RECFM=FB),SPACE=(CYL,( 1,1) ,RLSEI" 

SYSOUT«A,0CB=(LRECL-121,BLKSIZE-6O5,RECFX 

X' 

SP ACE- (605, (100, 50 l.RLSE,, ROUND)' 

UN I T=SYSDA,DISP=(, DELETE), SPACE- (1700, (IX 

UNIT=SYSOA,OISP-(, DELETE ), SPACE* ( 17CC, ( IX 

UNIT=(SYSDA,SEP-( SYSLIB, SYSUTl, SYSUT2U.X 

X' 

SPACE=( 1700,(100,50) ,RLSE)' 



COPY PCHSSI' 

PRINT ON' 

DFSOUEUE TASK-3.LINES-9' 

ENC' 
/*• 

//STEP28 EXEC PGM- I EWL. PARM="REUS,NCAL,XREF ,LI ST" ,REGX 
ON=110K' 

//SYSPRINT DD SYS0LT=A,DCB=(LRECL-121 ,BLKSI ZE-605, RECFX 
M-FBA), X' 

// SPACE=(6C5,(10,10) ,RLSE,,RCUNDC 

//SYSLIN DD DSNAME»*.STEP27. SYSGO, DISP-IOLO, DELETE)' 
//SYSOBJ DC OSNAME-ICS. CLOD, DISP=(OLD, PASS)' 
//SYSLMOD DD DSNAME=lCS.CLCD(DFSIQUEO),DISP-(OLD,PASS)X 

//SYSUTl DC UNIT=(SYSDA,SEP-(SYSLIN, SYSLMOD)), DISP-IX 

DELETE), X' 

// SPACE=( 1700, (ICO, 5CII' 

//STEP29 EXEC PGM-IEUASM, PARM="LCAD, NODECK " .REGION-X 

2K' 

//SYSLIB 00 CSNAME- IMS. GENL IB, D ISP=( SHR , PASS) • 

// DD DSNAME-SYSl.MACLIB.OISP-ISHR.PASS)' 

//SYSGO DC UNIT=SYSOA,DISP«( , PASS) ,0CH-(LRECL=80, BLX 

KSIZE=400, X' 

// RECFM=FB),SPACE=(CYL,(1,1) ,RLSE)« 

//SYSPRINT DD SYS0UT=A,DCB=( LRECL=121,BLKSI ZE-605, RECFX 
M=FBA), X« 



18U 
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F30SEP69 2/12/70 



2032 + 

2033+ 
+ 

2034 + 

2035 + 

2036 + 
2037+ 
2038 + 
2039* 

+ 
2040 + 

+ 
2041+ 

2042+ 
+ 
2043+ 
2044+ 
2045+ 
2046+ 

2047+ 

+ 

2048+ 

2049 + 

2050+ 

2051 + 

+ 

2052+ 

+ 

2053 + 

.2054+ 

2055+ 
2056+ 
2057 + 
+ 
2058+ 
2059 + 

2060+ 
2061 + 

2062+ 

2063+ 



PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 



II 

//SYSUT1 DD 
00,50)) ' 

//SYSUT2 DD 
00,50))' 

//SYSUT3 OD 
OISP-I, DELETE), 

II 



SPACE- 1605, (100, 50 ),RLSE,, ROUND)* 
UNIT«SYSCA,DISP-(,DELETE),SPACE-(17C0,(1X 

UNIT«SYSCA,DISP-< .DELETE) , SPACE-U700, <1X 

UNIT»(SYS0A,SEP-(SYSLIB,SYSUT1,SYSUT2)),X 

X' 

SPACE»(1700,(100,50),RLSE)* 



//SYSIN DD *■ 

COPY PCHSSI* 
PRIM CN' 

DFSICIOB NUM10B-10' 

TMSGSIZE QCRBUFN=14,MSGBUFN-10,DEVTYPE-(2314,2X 
14,2314,2314)' 

MSGDCB IQCRDNM-INQCR, X 

CCNTINUE' 

COCRCNM-CUTQCR, X 

CONTINUE' 

IMSGCNM«INMSG, X 

CCNTINUE' 

OMSGONM*(1UTMSG' 
END' 
/*' 

//STEP30 EXEC PGM-I EWL, PARM- "REUS.NCAL ,XREF,LI ST* • ,REGX 
CN-110K' 

//SYSPRINT DD SYSOLT=A ,DCB« ( LR ECL-121 .BLKSIZE-605 .RECFX 
=FBA), X* 

// SPACE=(605,(10,10),RLSE,,ROUND)* 

//SYSLIN DD DSNAME-*. STEP29. SYSGO,DISP»(OLD. DELETE) ' 
//SYSGBJ CO OSNAME-ICS. CLOD, DISP-IOLD, PASS) ■ 
//SYSLMOD DD DSNAKE- ICS. CLOD! OFS ICS40 ), OISP- (CLO, PASS )X 



//SYSUT1 CD 

DELETE), 

II 

//STEP31 EXEC PGM»IEUASM,PARM» 

2K' 



UNIT»(SYSDA,SEP=(SYSLIN,SYSLMO0)),DISP=(X 

X' 

SPACE=I 1700, (100, 50))' 

•LOAD.NODECK • • ,REGION«X 



//SYSLIB DC 

// DD 

//SYSGO DD 
KSIZE=400, 

II 

//SYSPRINT DO 
M»FEA) , 

II 

//SYSUT1 DD 
00,501)' 

//SYSUT2 DD 
00,5011' 

//SYSUT3 DD 



DSNAME»IMS.GENLIB,OISP-(SHR,PASSI* 
0SNAKE=SYS1.MACHB,DISP=(SHR,PASS)* 
UNIT*SYSOA,DISP»(,PASS) ,DC8=( LRECL=80,8LX 
X' 

RECFK=FB),SPACE*(CYL,(1,1I,RLSE)' 
SYS0lJT=A,DCB = (LRECL=121,BLKSIZE»605.RECFX 
X' 

SPACE* (605, (100, 50 l.RLSE,, ROUND)' 
UN IT*SYSDA,D ISP- (.DELETE), SPACE- (1700,1 IX 

UNI T=SYSC A, DISP-1, DELETE ), SPACE- (1700, (IX 

UNIT=(SYS0A,SEP=(SYSLIB,SYSUT1,SYSUT2)),X 



IMS/360 SYSTEM DEFINITION SPECIF ICAT ICNS 



LTC OBJECT CODE ADDR1 AD0R2 STMT 

+ 

2064 + 

2065 + 

2066 + 
2067+ 
2068 + 

206S+ 
+ 

2070 + 

2071 + 

2072+ 
+ 

2073+ 
+ 

2074 + 

2075+ 
2076 + 
207 7+ 
2078+ 

+ 
2079+ 

+ 
2080+ 

2081 + 

2082 + 

2083 + 
+ 

2084 + 



2087+ 
2088 + 
20R9+ 

+ 
2090+ 
2091 + 

+ 
2092* 
2093+ 

+ 
2094+ 

+ 
2095 + 



SOURCE STATEMENT 

DISP=(, DELETE), 

■// 

'//SYSIN DD 



F30SEP69 2/12/70 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 



PUNCH 
PUNCH 



SPACE=(17C0, (100,50),RLSE) ' 



COPY PCHSSI' 
PRINT ON' 
DFSGLBS PSB=22, DP3=9, SMB=41, X 

CONTINUF' 

CL8=9,CTB = 15,CNT=26,CDB-5, X 

CONTINUE' 

PST=3,SAV=12,WAT=14,RQE=2,QUE=(1,150) , X 
C^TINUE' 

SVC=(244,245),0SAK»(243,Z8),CVB=2T,CTM=2X 
CTML-4' 

I SCO SECTYPE-CSECT.CPGPT-500, X 

CONTINUE' 

PUNIT=2314,PSER-ST0RGE,PLIB=ICS.PR0CLIB X 

TMSGSIZE QCRBUFN=14,MSGBUFN»10,DEVTYPE-(2314.2314X 
2314,23141' 

DFSINT QCRS»14,MSGS=10* 
ENO' 
/*• 

//STEP32 EXEC PGM=I EWL, PARM-' « REUS ,NCAL , XREF, LI ST' • , REGX 
0N-110K' 

//SYSPRINT DC SYSGUT»A,DCB=(LRECL=121,BLKSIZE-605,RECFX 
M-FBA), X' 

// SPACE- (605, ( 10, 10I.RLSE, , ROUND) • 

//SYSLIN DD CSNAME=*.STEP31.SYSG0,DISP=(0LD, DELETE)* 
//SYSOBJ DD DSNAME=-ICS. CLOD, DISP«(OLD, PASS)' 
//SYSLMOD CO DSNAME»ICS.CLOD(DFSISCDQ),DISP=(OLD,PASS)X 



UNIT«( SYSOA.SEP-I SYSLIN, SYSLMOD) ) ,01SP-(X 
.REGION-X 



//SYSUT1 DD 

DELETE), X' 

// SPACE*(1700,(100,50)>* 
//STEP33 EXEC PGM=IEUASM,PARM=' 'LOAD, NODECK' 
92K' 
//SYSLIB DD OSNAfE»IMS.GENLIB,OISP=(SHR,PASS)* 

// DO DSNAME=SYS1.MACLIB,DISP=(SHR,PASS)* 

//SYSGC DD UNIT=SYSCA,DISP=(,PASS),CCE=(LRECL»80,BLX 

SIZE-400, X' 



II 

//SYSPRINT DC 

-FBA), 

II 

//SYSUT1 DD 
00,50))' 

//SYSUT2 OD 
00,50)1 • 

//SYSUT3 DD 
DISP=(,CELETE)i 



RECFM=FB),SPACE»(CYL,( 1,1) ,RLSE»* 
SYS0UT=A,DCB-(LRECL-121,BLKSIZE=605,RECFX 



SP ACE=( 605, (100, 50 >,RLSE,, ROUND) • 

UNI T-SYSCA,DISP=(, DELETE), SPACE- (1700, (IX 



UN IT-SYSCAiDISP-f, DELETE ), SPACE- 1 17C0, { IX 
UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2I),X 



185 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CODE 



ADDR1 ADOR2 STMT SOURCE STATEMENT 



F30SEP69 2/12/T0 



2096+ 
2097 + 
209?+ 
2099+ 

2100 + 

2101 + 
2102+ 
2103 + 
2104+ 

2105 + 

2106 + 
2107+ 

2108 + 
+ 

2109 + 
+ 

2110+ 

2111 + 

2112 + 
2113+ 

2114 + 

2115 + 
+ 

2116+ 

2117+ 

+ 

2118+ 

2119 + 

2120 + 
+ 

2121 + 

2122 + 
+ 

2123 + 
2124+ 

2125 + 
2126+ 
2127+ 
2128 + 
2129+ 
2130+ 
2131 + 
2132+ 
2133+ 
2134+ 

2135 + 

2136 + 
2137+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



// SPACE=(1700,(100,50),RLSE)' 

//SYSIN DD ** 

COPY PCHSSI' 

PRINT ON' 
OFSISVAO CSECT' 

SVC 244 ASK SVC NUMBER 1 



BR 



14" 



ENTRY DFSISVRO' 
DFSISVRO SVC 245 



REPLY SVC NUMBER* 



END' 



/*• 



PGM=IEhL,PARM="RENT,REFR,NCAL»XREF,LISTX 



//STEP34 EXEC ^^^^^ 

//SYSPRINT DO SYS0LT*A,OCB=(LRECL>=121,eLKSIZE=6O5,RECFX 

=FBA), X" 

// SPACE=(605,I10,10),RLSE !f ROUNO)' 

DSNAKE=*.STEP33. SYSGO, CI SP«( OLD, DELETE)' 

ODNAME=SYSIN' 
OSNAME=ICS.CLCD,DISP=(OLD,PASS)' 

DSNAME=ICS.CLOD(DFSISVAO),DISP=(0LD,PASSX 

UN I T=(SYSDA,SEP=< SYSLIN, SYSLMOD )),DISP=(X 



//SYSLIN DD 



//SYSOBJ DC 
//SYSLMOD DD 



SPACE=(17OO,(100,50),RLSE>' 
PGM=IEWL,PARM="RENT,REFR,NCAL,XREF,LISTX 



//SYSUT1 DD 

DELETE), 

// 

//STEP35 EXEC 

• ,REGION=110K" 

//SYSPRINT DC SYSCUT=A' 

//SYSLIN DD DDNAME=SYSIN' 

//SYSLMOD DD VOLUME=S ER= IMSL IB, DI SP= (OLD, PASS I , X 

CONTINUE' 
// 0SNAKE = ICS.CLOD,UNIT=2314' 

//SYSOBJ DO VOLUME=SER=IMSLIB,DISP=(OLD,PASS), X 

CONTINUE' 
// DSNAME = ICS.CL0D,UNIT=>2314' 

UN IT= ( SYS DA, SEP= ( SYSLIN, SYSLMOD II, DISP=(X 



//SYSUT1 DD 

DELETE) , 

// 

//SYSIN DD ** 

SETSSI 05012090' 
CHANGE DFSIASKOI IGC244I' 
CHANGE DFSIFEP0UGC245)' 
INCLUDE SYSCBJIDFSI SVVO) 
NAME DFSISVVO(R)' 

SETSSI 05012090' 
INCLUDE SYSOBJIDFSISVAO) 
INCLUOE SYSCBJ(DFSIRCCO) 
ENTRY DFSIRCOO' 
NAME OFSIRCCO(R) 

SETSSI 05012090' 



SPACE=( 1700,1 100,50) ,RLSE) ' 



INTER-REGION SVC RTNES' 

SVC BUMPS' 

REGION CONTROLLER MODULE' 



IMS/36C SYSTEM DEFINITION SPECIFICATIONS 



LCX ORJFCT CODE ADDR 1 ADDR2 STMT SCURCE STATEMENT 



F30SEP69 2/12/70 



2138 + 
2139+ 
2140+ 
2141 + 
2142+ 

2143 + 

2144 + 
2145+ 
2146+ 
2147 + 
2148+ 
2149 + 
2150+ 

2151 + 

2152 + 
2153+ 
2154+ 

2155+ 

2156 + 

+ 

2157+ 

2158 + 

2159 + 

2160 + 

2161 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



2162 + 


PUNCH 


2163+ 


PUNCH 


2164 + 


PUNCH 


2165 + 


PUNCH 


2166+ 


PUNCH 


2167 + 


PUNCH 


2168 + 


PUNCH 


2169+ 


PUNCH 


2170 + 


PUNCH 


2171 + 


PUNCH 


2172+ 


PUNCH 


2173 + 


PUNCH 


2174+ 


PUNCH 


2175 + 


PUNCH 


2176+ 


PUNCH 


2177+ 


PUNCH 


2178+ 


PUNCH 


2179+ 


PUNCH 


2180+ 


PUNCH 


2181 + 


PUNCH 



//SYSPRINT DD 
M»FBA), 
II 
//SYSOBJ DD 



INCLUDE SYSOBJIDFSISVAO) 
INCLUDE SYSCBJIOFSIPROO)' 
INCLUDE SYSCBJ(DFSIPCCO)' 
ENTRY DFSIPCOO' 
NAME OFSIPCOO(R) 

SETSSI 05012C9C 
INCLUDE SYSOBJIDFSISVAO) 
INCLUDE SYSCBJ(DFSIDLKO)' 
ENTRY DFSIDLLO' 
NAME DFSIDLLO(R) 

SETSSI 05012090' 
INCLUDE SYSO3JIOFSIBDD0) 
INCLUDE SYSCRJIDFSILIOOI 
ENTRY OLITCEL' 
NAME DFSIBDRO(R)' 



PROG. CONTROLLER MODULE' 



DL/I BLOCK LOADER MODULE' 



DATABASE RECOVERY MODULE" 
OL/I LANGUAGE INTERFACE' 



//STEP36 EXEC PGM=IEWL,REGI0N=110K, X 

«■■» CONTINUE' *■■» 
// PARM=."REUS, LET, NCAL.XREF, LIST" ■ 

SYSOUT=A,DCB=(LRECL=121,BLKSIZE=605,RECFX 



SPACE=(6O5,U0,lO),RLSE,,R0UND)' 
DSNAMF=ICS.CLOD,DISP=(OLD,PASS)' 
// DC DSNAME* ICS. CLOD, DISP=(OLO, PASS) • 

//SYSLMOD DD DSNAME= ICS.CLCDIDFS I BLKOI ,DISP= (OLD, PASS)X 



//SYSUT1 OD UNIT=(SYSDA 

DELETE) , X' 

II 

//SYSLIN DD * • 

SETSSI 05O1209O' 
INCLUDE SYSCBJ(DFSIDIRO) 
INCLUDE SYSCBJ(DFSISMBO) 
INCLUOE SYSOBJIDFSICLLOI 
INCLUDE SYSCBJ(OFSICTBO) 
INCLUDE SYSCBJ(DFSICNTO) 
INCLUDE SYSCBJ(DFSICTTO) 
INCLUDE SYSCBJ(DFSICVBO) 
INCLUDE SYSCBJIDFSI0S40) 
INCLUDE SYSOBJ(DFSIPSTO) 
INCLUDE SYSCBJ(CFSISAVO) 
INCLUDE SYSCBJ(DFSIQUEO) 
INCLUDE SYSOBJ(DFSISCDO) 
NAME DFSIBLKO(R) 
ULE' 

/*• — ■ 

//ST EP37 E XEC PGM=IEWL,REG] 

// PARM="OVLY, 

//SYSPRINT DD SYSOUT=A,DCI 



SEP=(SYSOBJ,SYSLMOD)),DISP=(X 
X' 
SPACE=(17CC, (100,50))' 



PSB OMBL AND DMD BLOCKS' 
SCHEOULER MSGE BLOCKS' 
CCMM LINE BLOCKS' 
COMM TERM BLOCKS' 
COMM NAME TABLE' 
COMM TRANS TABLE' 
COMM VERB TABLE" 
OSAM CCNTROL BLOCKS' 
PARTITION SPEC TABLE' 
IMS/360 SAVE AREA SETS' 
QUEUE CONTROL BLOCKS' 
SYSTEM CONTENTS DIRECTORY' 
IMS/360 CONTROL BLOCKS MODX 



LET, NCAL.XREF, LIST" • 
!=(LRECL=121,BLKSIZE=605,RECFX 
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IMS/^60 SYSTEM DEFINITION SPEC I F I C AT ICNS 



LCC CBJFCT code 



AODR1 ADDR2 STMT SOURCE STATEMENT 



F30SEP69 2/12/70 



2182+ 

2183 + 

2184 + 
2185*- 

+ 

2186 + 
+ 

2187 + 
2188* 
2189+ 
2190 + 
2191* 

2192 + 

2193 + 
2194+ 

2195 + 

2196 + 
2197+ 
2198 + 
2199+ 
2200+ 
2201+ 
2202+ 
2203+ 
2204+ 
2205+ 
2206+ 
2207+ 
2208+ 
2209 + 
2210+ 
2211+ 
2212+ 
2213+ 

2214 + 

2215 + 

2216 + 

2217 + 
2218+ 
2219+ 
2220 + 
2221+ 
2222+ 
2223+ 
2224+ 
2225+ 
2226 + 
2227+ 
2228+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH' 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



M-FBA), 
II 

//SVSORJ DO 
// 00 
//SYSLMCD rc 



//SYSUT1 CO 

DELETEI, X« 

// SPACE=(17C0, 

//TELLIB CO CSNAMF*SYS1, 

//SYSLIN DO * • 

SETSSI O5012C9O" 
INCLUDE SYSCBJ(DFSIXXXO) 
INCLUDE SYSCBJIDFSIBLKO) 
INCLUDE SYSCBJIDFSIDSPO) 
INCLUDE SYSCBJ10FSIRSTO) 
INCLUDE SYSCBJ(OFSIRSIO) 
INCLUCE SYSCBJIDFSICPCOI 
INCLUDE SYSCBJIDFSIASIOI 
INCLUDE SYSCBJIDFSIASTOI 
INCLUDE SYSCBJIDFSM8E0I 
INCLUDE SYSCBJIDFSIMBOO) 
INCLUDE SYSCBJIDFSICLIOI 
INCLUDE SYSCHJIDFSICLOOI 
INCLUDE SYSCBJ(DFSICLPO) 
INCLUDE SYSCBJIDFSICLRO) 
INCLUDE SYSCBJIDFSICLMOI 
INCLUDE SYSCBJ(DFSICLTO) 
INCLUDE SYSCRJIOFSICLBO) 
INCLUDE SYSCBJ(OFSICLFO) 
INCLUDE SYSOBJ(DFSICLSO) 
INCLUDE SYSCBJ(CFSICLXO) 
INCLUDE SYSCBJ1DFSICL10) 
INCLUDE SYS08JIDFSICL20) 
INCLUDE SYSCBJ(DFSICLAO) 
INCLUDE SYS0BJIDFSICL30) 
INCLUDE SYSCBJ(DFSICL401 
INCLUDE SYSCBJIDFSICL50I 
INCLUDE SYSCBJ(DFSICL60) 
INCLUDE SYSCBJIDFSICL70I 
INCLUDE SYSCBJIDFSICL80) 
INCLUDE SYS0BJIDFSICL90) 
INCLUDE SYSCBJICFSICLDOI 
INCLUDE SYSCBJ(DFSIDPIO) 
INCLUDE SYSCBJ(0FS1DP20) 
INCLUDE SYSCBJIDFSICP30I 
INCLUDE SYSCBJIDFSI0P40I 
INCLUDE SYSCBJICFSICP50I 
INCLUDE SYSCBJ(CFSIDP60) 
INCLUCE SYS0BJ(DFSI0P70) 



SPACE- (605, ( 10 i 101.RLSE, ,RCUN0 1" 
nSNAME»ICS.CLCO ) OISP=(OLC,PASSI' 
•3SNAME=ICS.CLCD,DISP=(0L0,PASSI ■ 
DSNACfi^ICS.CLCDIDFSINUCOI.DISP'inLDtPASSlX 

UNII-lSYSOA,SEP=lSYSOBJ,SYSLMOD) I ,DISP = (X 



<1C0,50>)" 
TELCMLI8iDtSP=SHR" 



RESIDENT MODULE MAP 1 
IMS CCNTROL eLOCKS" 
IMS SU3TASK DISPATCHER' 
IMS RESTART' 
RESTART INITIALIZATION' 
IMS CHECKPOINT" 
SCHEDULER - INITIATION" 
SCHEDULER - TERMINATICN" 
SCHEDULER - SM8 ENQUEUE' 
SCHEDULER - SMB DEQUEUE" 
COMM INPUT PROCESSOR' 
CCMM CUTPUT PROCESSOR' 
CCKMANC MSGE PROCESSOR' 
MESSAGE ROUTER' 
MESSAGE GENERATOR" 
COMM TRANSLATION MODULE" 
COMM BACKSPACE EDIT" 
SY»BCLIC OEST FINDER' 
SECURITY PROCESSOR" 
CCMM RESET POLL' 
/BROACCAST CCMMAND" 
/CHE /RES COMMAND" 
/IAM COMMAND" 
EDIT COMMAND MSGE" 
/STA /STO /PST COMMAND" 
/TEST /END /EXC COMMANDS" 
/CHA COMMAND' 
/ASSIGN COMMAND' 
/CEL COMMAND' 
/LOCK / UNLOCK COMMAND' 
/DISPLAY CONTROL MODULE" 
" STATUS" 

•• ACTIVE" 

" QUEUES" 

" TRAN 56 LTERM" 

" PGM £6 DATABASE' 

•• LINE E& PTERM' 

" ASSIGNMENT' 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CCDE AD0R1 ADDR2 STMT SOURCE STATEMENT 



2229+ 
2230+ 
2231 + 
2232+ 
2233+ 
2234 + 
2235+ 
2236 + 
2237+ 

2238 + 

2239 + 
2240+ 
2241+ 
2242 + 
2243+ 
2244+ 
2245 + 
2246+ 
2247 + 
224 8+ 
2249+ 
2250+ 
2251+ 
2252 + 

+ 
2253+ 

+ 
2254+ 
2255+ 

2256 + 

2257 + 
2258+ 
2259 + 
2260+ 

2261 + 

2262 + 
2263+ 

2264 + 

2265 + 

2266 + 

2267 + 
2268+ 
2269+> 
2270 + 
2271+ 
2272+ 
2273 + 
2274+ 

2275 + 

2276 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 



SYSCeJ(OFSIRDlO) " MASTER" 

SYSOBJ(DFSIOLAO) DL/I CALL ANALYZER' 

SYSOBJ(DFSID'LMO) DL/I BLOCK MOVER' 

SYSCBJ(CFSICLCO) DL/I OPEN MODULE' 

SYSCBJIDFSI0S10) CSAM CPEN' 

SYSCBJICFSI ICEO) BLOCK DEOUEUE MOOULE' 

SYSCBJ(OFSIIENO) BLOCK ENOUEUE MODULE' 

SYSCBJ(OFSIDBLO) DB SEG'LCG FCR BACKCUT' 

SYSCBJ(DFSIPREO) MSGE AND LOG PREFIX BLDR" 

SYSCBJ(CFSILCOO) WRITE LOG ROUTINE' 

SYSCBJIDFSISTP01 START REGION' 

SYSCBJ(CFSIPTPO) STOP REGION' 

SYSCBJ(DFSIASEO) SIM REGION TERMINATION' 

SYSCBJIOFSIRKQOI READ/WRITE MSGE QUEUE" 

SYSCBJ(DFSIQMSO) REUSE QUEUE MODULE" 

SYSCBJIOFSI SMNO) STORAGE POOL MGMT" 

TELLIEIIECTLGPN) BTAM SAD/ENABLE" 

TELLIBI IECTCHGN) ' 

SYSOBJ(OFSICMIO) COMM MESSAGF TABLE' 

SYSCBJ(OFSICLEO) /SET /RESET COMMANDS' 

SYSCBJ(DFSISMIO) SECURITY MAINT INIT" 

SYSCBJIOFSI INTO) INIT - CONTROL St MISC" 

SYSCBJIOFSI INLO) INIT - MODULE LOADER" 

SYSCBJIOFSI IN10) INIT - JOBLIB MODULE TABLEX 



INCLUDE SYSCBJIOFSI IN20) INIT r SVCLIB MODULE TABLEX 



INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

INCLUDE 

CHANGE 

INCLUDE 

CHANGE 

INCLUDE 



INSERT 
INSERT 
INSERT 
INSERT 
INSERT 
INSERT 



SYSCBJIOFSI INDO) 
SYSCBJIOFSI INSOI 
SYSCBJIOFSI INQO) 
SYSCBJIOFSI INBO) 
SYSOBJI0FSIINX01 
SYSCBJIDFSIOS60) 
0FSICS6OIDFSIOS7O) 

SYSCBJIDFSIOS60) 
CFSICS60IDFSIOS70) 

SYSCBJIOFSIDLCOI 
ENTRY DFSSTART" 

OVERLAY IMSA" 
DFSICL10" 

OVERLAY IMSA' 
DFSICL20" 

OVERLAY IMSA" 
DFSICL30" 

OVERLAY IMSA" 
OFSICL40" 

OVERLAY I«SA" 
DFSICL50" 

OVERLAY IMSA" 
OFSICL60" 



INIT - DMB DIRECTORY" 
INIT - STORACE POOL MGMT" 
INIT - QUEUE MANAGEMENT" 
INIT - COMMUNICATIONS' 
INIT - RESIOENT XFR CTL' 
OSAM' CLOSE ROUTINE' 
CHG EP TO OSAM CLOSE RTNE" 
OSAM CLCSE RTNEI2N0 COPY I ' 
CHG DLCO REFERENCE' 
OL/I CLOSE MODULE' 



186.1 



IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LOC OBJECT CCOE 



ADDR1 AD0R2 STMT SOURCE STATEMENT 



2277 + 


PUNCH 




OVERLAY 


IMSA 


2278 + 


PUNCH 


INSERT 


DFSICL7C 




2279+ 


PUNCH 




OVERLAY 


IMSA 


2280+ 


PUNCH 


INSERT 


DFSICL80' 




2281 + 


PUNCH 




OVERLAY 


IMSA 


2282+ 


PUNCH 


INSERT 


CFSICL90' 




2283 + 


PUNCH 




OVERLAY 


IMSA 


2284 + 


PUNCH 


INSERT 


DFSI0P10' 




228 5+ 


PUNCH 




OVERLAY 


IPSA 


2286+ 


PUNCH 


INSERT 


DFSIDP20' 




2287 + 


PUNCH 




OVERLAY 


IMSA 


2288+ 


PUNCH 


INSERT 


DFSIDP30 1 




2289 + 


PUNCH 




OVERLAY 


IMSA 


2290 + 


PUNCH 


INSERT 


CFSICP40' 




2291+ 


PUNCH 




OVERLAY 


IMSA 


2292 + 


PUNCH 


INSERT 


DFSIDP50' 




2293 + 


PUNCH 




OVERLAY 


IMSA 


2294+ 


PUNCH 


INSERT 


0FSIDP60" 




2295 + 


PUNCH 




OVERLAY 


IMSA 


2296+ 


PUNCH 


INSERT 


CFSICP70' 




2297 + 


PUNCH 




OVERLAY 


IMSA 


2298 + 


PUNCH 


INSERT 


0FSIRD10' 




2299+ 


PUNCH 




OVERLAY 


IMSA 


2300 + 


PUNCH 


INSERT 


DFSISMIO' 




2301 + 


PUNCH 




OVERLAY 


IMSA 


2302+ 


PUNCH 


INSERT 


OFSIINTO' 




2303 + 


PUNCH 


INSERT 


DFSIINXO' 




2304 + 


PUNCH 




OVERLAY 


IMSfl 


2305+ 


PUNCH 


INSERT 


OFSIINLO' 




2306 + 


PUNCH 


INSERT 


DFSIIN10' 




2307+ 


PUNCH 


INSERT 


DFSIIN20' 




2308 + 


PUNCH 




OVERLAY 


IMSB 


23Q9 + 


PUNCH 


INSERT 


OFSIINDO" 




2310+ 


PUNCH 




OVERLAY 


IMSB 


2311 + 


PUNCH 


INSERT 


DFSIINSO' 




2312 + 


PUNCH 


INSERT 


DFSINTBO' 




2313+ 


PUNCH 




OVERLAY 


IMSB 


2314 + 


PUNCH 


INSERT 


DFSIINOO' 




2315+ 


PUNCH 




OVERLAY 


IMSB 


2316+ 


PUNCH 


INSERT 


DFSIINBO' 




2317 + 


PUNCH 




OVERLAY 


IMSA 


2318 + 


PUNCH 


INSERT 


DFSISTPO' 




2319+ 


PUNCH 




OVERLAY 


IMSC 


2320 + 


PUNCH 


INSERT 


OFSIPTPO' 




2321+ 


PUNCH 


INSERT 


CFSIASEO • 




2322+ 


PUNCH 




OVERLAY 


IMSA 


2323 + 


PUNCH 


INSERT 


OFSIDLOO' 




2324+ 


PUNCH 




CVERLAY 


IMSD 


2325+ 


PUNCH 


INSERT 


DFSIOS60' 




2326 + 


PUNCH 




OVERLAY 


IMSE 



PAGE 57 
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IMS/360 SYSTEM DEFINITION SPECIFICATIONS 



LCC OBJECT CODE AD0R1 AD0R2 STMT SOURCE STATEMENT 



F30SEP69 2/12/70 



2327+ 


PUNCH ■ 


2328+ 


PUNCH • 


2329+ 


PUNCH • 


2330+ 


PUNCH • 


2331 + 


PUNCH • 


2332+ 


PUNCH • 


2333 + 


PUNCH < 


2334 + 


PUNCH ' 


2335+ 


PUNCH • 


2336 + 


PUNCH • 


2337+ 


PUNCH ' 


2338+ 


PUNCH ■ 


2339+ 


PUNCH ' 


2340 + 


PUNCH • 


2341+ 


PUNCH ■ 


2342 + 


PUNCH • 


2343+ 


PUNCH • 


2344 + 


PUNCH • 


2345+ 


PUNCH • 


2346+ 


PUNCH • 


2347+ 


PUNCH • 


2348+ 


PUNCH • 


2350 


* 


2351 


* 



INSERT 0FSIOS10' 

CVERLAY IMSA" 
INSERT CFS1CLC0' 

CVERLAY IMSF" 
INSERT DFSI0S7C 

OVERLAY IMSA' 
INSERT DFSICLEO' 

OVERLAY IMSA' 
INSERT DFSICM10' 

OVERLAY IMSA' 
INSERT DFSIRSIO' 
NAME DFSINUCO(R) 



IHS/360 ONLINE NUCLEUS 1 



/*• 

//STEP38 EXEC PGM= IEHL IST,REGION= 100K ' 

//SYSPRINT DO SYSOUT=A' 

//RESLIB 00 VOLUME = SER=IMSLIB«CISP«<OLD,PASS>, 

CONTINUE' 

// CSNACE=ICS.CL0D,UNIT=2314' 

//SYSIN DD *• 

LISTVTOC OSKAME=ICS.CL00iVOL*2314»IMSLIB' 
LISTVTOC DUMP,DSNAME=ICS.CLCDtV0L=2314=IMSLIB' 
LISTPDS 0SNAME=ICS.CL0D,VOL=2314=IMSLIB' 

/*• 



SUCCESSFLL IHS/360 SYSTEM DEFINITION 
GENERATION HILL BE FOR ALL IMS/360 FUNCTIONS. 
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LCC ORJFCT CODE ADUR1 A00R2 STMT SOURCE STATEMENT F30SEP69 2/12/70 

2353**» WARNING ** 

235* *, 

2355 *, 

2356 * f * 

2357 *, IGG019Z8 KUST BE MOVED TO SYS1.SVCLIB AND IGC243 

2358 *,MUST BE LINK EDITED WITH THE OS/360 NUCLEUS FOR 

2359 *, SUCCESSFUL IMS/360 SYSTEM EXECUTION. 

2360 *, 

2361 », THE CN LINEUP) FUNCTIONS OF THE IMS/360 SYSTEM 

2362 *,RE0U1RE IGC24* AND IGC245 BE LINK EDITED WITH THE 

2363 »iOS/360 NUCLELS FGR SUCCESSFUL EXECUTION OF THESE 

2364 », FEATURES. THE LOAD MEMBER NAME IS DFSISVVO AND IT 

2365 *tWILL BE PLACED IN ICS.CLOD BY STAGF II OF 

2366 * », IMS/360 SYSTEM GENERATION. 

2367 *, 

2368 *i OATABASE BACKOUT AND DUMP FUNCTIONS OF IHS/360 

2369 *, REQUIRE DFSIPDPO BE MOVED TO ICS.PSBLIB AND 

2370 *, RENAMED DFSI8DR0 FCR SUCCESSFUL EXECUTION OF THESE 

2371 *, FEATURES. 

2372 *t 

2373 *. STFP 37 OF STAGE II OF IMS/360 SYSTEM GENERATION 

2374 *, REQUIRES SYS l.TELCML IB DE A CATALOGED DATA SET ON 

2375 *,THE GENERATING SYSTEM AND CONTAIN THE INOICATED LOAD 

2376 * t MOCULES TO BE INCLUDED IN THE IMS/360 NUCLEUS. 

2377 *, 

2378 *, PROCEDURE 'IMS' MUST BE MOVED TO SYSl.PROCLtB 

2379 *,FOR SUCCESSFUL EXECUTION OF THIS PROCEDURE. STAGE II 

2380 *,CF IMS/360 SYSTEM GENERATION PLACES ALL PROCEDURES 

2381 »,IN ICS.PROCLIB. 

2382 *, 

2383 *, PROCEDURES MMSO' AND 'IMS1' MUST BE UPDATEO TO 

2384 *, INCLUDE DD CARDS FOR THE DATABASES SPECIFIED DURING 

2385 *, IMS/360 SYSTEM DEFINITION BEFORF THESE PROCEDURES 

2386 *,CAN BE SUCCESSFULLY EXECUTEO. 

2387 *, 

2388 * f OFSILNKO AND DFSIRCCO SHOULD BE IN SYS1.L1NKLIB 

2389 *,FOR EFFICIENT IMS/360 SYSTEM OPERATION. 

2390 *, 

2391 *, SEE IMS/360 AND OS/360 SYSTEM OPERATION MANUALS 

2392 * f FOR MODULES TO BE PLACED IN LINK PACK AREA FOR 

2393 *iEFFICIENT SYSTEM OPERATION. 

2394 *, 

2395 *» APPROXIMATE SIZE OF OFSIBLKO MILL BE 19500 BYTES. 

2396 * t IF CALCULATED AND DEFAULT BUFFER AND POOL SIZES ARE 

2397 *,USEO; THE TOTAL SIZE WILL BE 52000 BYTES. 

2398 *, 

2399 *, STAGE II OF IMS/360 SYSTEM GENERATION HILL PLACE 

2400 *tALL SYSTEM LCAC MODULES IN ICS.CLOD. 

2401 *, * 

2402 *t **************************************************** 



IMS/?60 SYSTEM DEFINITION SPECIFICATIONS PAGE 60 

LCC OBJECT CCDF A0DR1 ADDR2 STMT SOURCE STATEMENT F30SEP69 2/12770 

2403 *,**************************************************** 



186.3 



s 



186.4 



Batch Stand-Alone Example 

This example illustrates the output from Stage 1 of IMS/360 system 
definition. The input to Stage 1 (that is, the control cards) is 
provided in the output listing, as is a summary of the Data Set 
Specifications, followed by the punch statements and warning comments at 
the end. 



lpc object code Anrmi addr2 stmt 



SOURCE STATEMENT 

IMSCTRL SYSTEM- (MVT, BATCH), OSAMSVC- 2*5, OCENDA»WA 



F01JAN68 10/16/68 



BATCH IMS/360 FUNCTIONS ARE SELECTED 
MVT PROGRAMMING SYSTEM WILL BE USED 
OSAM CHANNEL END APPENOAGE - IGG019WA 
SUPERVISOR STATE SVC NUMBER - 2*5 



RESLIB UNIT-2311, V01N0-ILI801 

MACLIB UNlT«23U,VOLNO-ILIB02 

PGMLIB 

PSBLIB 

0B0LIB 

PROCLIB 

IMSGEN UT1S0S«GENSET,LEPRT-(LIST,XREF),ASMPRT«0N 



MS/16" SYSTEM ObFINlTl'W SPECIFICATIONS 



ire mjFCT cruE aduri ador? stmt source statement 

16 *, IMS/360 data set specifications ibatchi 



F01JAN68 10/16/68 



RESLIB SPECIFICATION: 

DSNAME-IMS. RESLIB VOLUME-ILIB01 UNIT-2311 

MACLIB SPECIFICATION: 

DSNAME-IMS. MACLIB VOLUME-IL IB02 
UNIT-2311 COPY-UTILITY 



PGMLIB SPECIFICATION: 

DSNAME-IMS. PGMLIB VOLUME-N/A UNIT-N/A 



PSBLIB SPECIFICATION: 

DSNAME-IMS. PSBLIB VOLUME-N/A UNIT-N/A 
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MS/360 SYSTEM DEFINITION SPECIF ICAT IONS 



LCC OBJECT COOF AOOR1 ADDR2 STMT SOURCE STATEMENT 



FP1JAN6B 10/16/68 



PUNCH '//IMSGEN JOB 1, "IMSGEN STAGE 1 1 • • ,MSGCLASS-A,MSGLEVEL-X 



S 



1* 



39 + 


PUNCH • 


40+ 


PUNCH • 


41 + 


PUNCH • 


42 + 


PUNCH • 


43+ 


PUNCH • 


44+ 


PUNCH • 


45 + 


PUNCH • 


46+ 


PUNCH • 


47* 


PUNCH • 


48 + 


PUNCH • 


49 + 


PUNCH • 


50+ 


PUNCH • 


51 + 


PUNCH • 


52* 


PUNCH • 


53* 


PUNCH • 


54+ 


PUNCH • 


55+ 


PUNCH ■ 


56+ 


PUNCH • 


57* 


PUNCH ' 


58* 


PUNCH ' 


59+ 


PUNCH • 


60* 


PUNCH • 


61* 


PUNCH • 


62* 


PUNCH ■ 


63* 


PUNCH • 


64* 


PUNCH ' 


65+ 


PUNCH • 


66 + 


PUNCH • 


67+ 


PUNCH • 


68+ 


PUNCH • 


69+ 


PUNCH ' 


70+ 


PUNCH • 


71 + 


PUNCH • 


72 + 


PUNCH ■ 


73+ 


PUNCH ' 


74+ 


PUNCH • 


75+ 


PUNCH • 


76+ 


PUNCH • 


77+ 


PUNCH • 


78 + 


PUNCH •. 


79+ 


PUNCH • 


80+ 


PUNCH * 


81 + 


PUNCH • 


82+ 


PUNCH • 


83+ 


PUNCH • 


84+ 


PUNCH • 


85+ 


PUNCH • 


86+ 


PUNCH • 


87+ 


PUNCH • 



//STEP1 EXEC PGM-IEHMOVE,REGION-100K* 

//SVSPRINT DD SYSOUT-A' 

//SYSUT1 DO DSNAME-GENSET.DISP-IOLD.PASSI* 

//002 00 DSNAME-1MS. LOAD, OISP-(OLO. PASS)' 

//DD3 00 VOLUME-SER>ILIB01,DISP-(OLOiPASS>, 

CONTINUE' 

// DSNAME-IMS.RESLIB,UNIT»2311* 

//SYSIN DD *• 

COPY PDS«IMS.LOAO,TO-2311-ILIB01,RENAME-IMS.RESLIB' 
SELECT MEMBER-DFSIRA90 REGION ANALYZER MODULE' 



SELECT MEMBER-OFSIRCCO 
SELECT MEMBER-UFSTPCCO 
SELECT MEMBER-DFSIPROO 
SELECT MEMBER-DFSILNKO 
SELECT MEMBER-DFSILIOO 
SELECT MEMBER-DFSIDLRO 
SELECT MEMBER-DFSIDLIO 
SELECT MEMBER-DFSIOLDO 
SELECT MEMBER-DFSIDLEO 
SELECT MEMBER-DFSIDLNO 
SELECT MEMBER-DFSIOLHO 
SELECT MEMBER-DFSIDLTO 
SELECT MEMBER-DFSISNAP 
SELECT MEMBER-DFSIISMO 
SELECT MEHBER>0FSIWKN9 
SELECT MEMBER-DFSIOLHO 
SELECT MEMBER-DFSI0S20 
SELECT MEMBER-DFSI0S30 
SELECT MEMBER«0FSIOS60 
SELECT MEMBER-DFSIOS10 
SELECT MEMBER-DFSISMMO 
SELECT MEHBER-OFSIOLOO 
SELECT MEMBER-DFSIDLCQ 
SELECT MEMBER-DFSIDBAO 
SELECT MEMBER-OFSIBKBO 
SELECT MEMBER>((DFS10CEOt IGG019WAII 
ENGAGE' 



REGION CONTROLLER MOOULE' 
PROG. CONTROLLER MODULE* 
PROG. REQUEST HANDLER' 
IMS/360 LINKAGE EDITOR* 
OL/I LANGUAGE INTERFACE* 
DL/I RETRIEVE MODULE* 
DL/I INSERT MODULE* 
OL/I DELETE/REPLACE MODULE* 
DL/I DATA BASE LOAD MODULE* 
DL/I BATCH INITIALIZATION* 
DL/I HSAM MODULE* 
OL/I PROGRAM TEST MODULE* 
DL/I BLOCK SNAP ROUTINE* 
DL/I ISAM SIMULATOR* 
DL/I WRITE KEY NEW MODULE* 
DL/I BLOCK LOAOER MODULE' 
OSAM REAO/WRITE MODULE' 
OSAM CHECK ROUTINE' 
OSAM OPEN/CLOSE! 0VFW1 • 
OSAM OPEN ROUTINE' 
STORAGE MANAGEMENT MODULE' 
DL/I OPEN MODULE' 
OL/I CLOSE MODULE' 
DL/I BATCH ANALYZER*. 
DL/1 BATCH BLOCK MODULE* 

OSAM CH. ENO APX 



//STEP2 EXEC PGM-IEWL < PARM-"KENT,NCAL,LIST,XREF" ' 

//SYSPRINT DD SYSOUT-A* 

//SYSLIN DO DDNAME-SYSIN' 

//SYSLMOO DO VOLUME-SER-ILIBOUDISP-IOLOtPASSI. X 

CONTINUE* 
// DSNAME»IMS.RESLIB,UNIT«23U' 

//SYSOBJ 00 DSNAME-IMS.LOAD.OISP-lOLDtPASSI' 
//SYSUT1 DO UNIT«(SYSOAfSEP«(SYSLINiSYSLMODI)fDISP«(X 

DELETE). X' 

// SPACE*U700,1100,50),RLSE>' 

//SYSIN DD *• 

CHANGE IGC255IIGC245)' 

INCLUDE SYSOBJIDFSiaSVOI OSAM SVC ROUTINE' 

NAME IGC2451R)* 

INCLUDE SYS0RJ<DFSISVN9>* 



IMS/36" SYSTFM DEFINITION SPFCIF ICATIONS 



/" 



OBJFCT CPOE AD1R1 A0OR2 STMT 


SOURCE STATEME 




88 + 


PUNCH • 




89+ 


PUNCH • 




90+ 


PUNCH • 




91 + 


PUNCH • 




92+ 


PUNCH • 




93+ 


PUNCH • 




94+ 


PUNCH • 




95 + 


PUNCH • 




96+ 


PUNCH • 




97+ 


PUNCH • 




98+ 


PUNCH • 




99+ 


PUNCH ■ 




1*0+ 


PUNCH • 




101 + 


PUNCH • 




102+ 


PUNCH • 




103+ 


PUNCH • 




104+ 


PUNCH • 




105+ 


PUNCH • 




106+ 


PUNCH • 




107+ 


PUNCH • 




108+ 


PUNCH ' 




109+ 


PUNCH • 




110 + 


PUNCH • 




1.11 + 


PUNCH • 




112 + 


PUNCH • 




113+ 


PUNCH • 




114+ 


PUNCH • 




115 + 


PUNCH • 




116 + 


PUNCH • 




117+ 


PUNCH • 




118+ 


PUNCH • 




119+ 


PUNCH • 




120+ 


PUNCH ' 




121 + 


PUNCH • 




122+ 


PUNCH • 




123+ 


PUNCH < 




124+ 


PUNCH • 




125+ 


PUNCH • 




126+ 


PUNCH • 




127+ 


PUNCH • 




128 + 


PUNCH • 




129 + 


PUNCH ■ 




130+ 


PUNCH • 




131 + 


PUNCH • 




132 + 


PUNCH • 




133+ 


PUNCH ' 




134 + 


PUNCH ■ 




135+ 


PUNCH ' 




136+ 


PUNCH • 




137 + 


PUNCH • 




138 + 


PUNCH • 




139 + 


PUNCH ' 




140 + 


PUNCH • 




141 + 


PUNCH • 



F01JAN68 10/16/68 



INCLUDE SYSOBJIOFSIRCCOI* 
ENTRY DFSIRCOO' 

NAME DFSIRCOOCRI REGION CONTROLLER MODULE* 

INCLUDE SYSOBJIOFSISVNO)* 
INCLUDE SYSOBJIOFSIPROO)* 
INCLUDE SYSOBJIDFSIPCCOI* 
ENTRY OFSIPCOO ' 

NAME DFSIPCOOIR) PROG. CONTROLLER MOOULE* 

INCLUDE SVSOBJIDFSISVNOI* 
INCLUDE SYSOBJIOFSIOLKOI* 
ENTRY OFSIDLLO* 

NAME DFSIDLLOIR) DL/I BLOCK LOADER MODULE* 

/*• 

//STEP3 EXEC PGM-IEHM0VE,REGI0N-130K* 
//SYSPRINT DD SYSOUT-A* 

//SYSUT1 00 0SNAME-GENSET,DISP»IOLD,PASSI' 
//DD2 DO OSNAME-IMS.GENLIBtDISP-IOLOtPASSi' 
//D03 00 V0LUME»SER«ILIB02,OISP«OLOt X 

CONTINUE' 
// DSNAME»lMS.MACLIBtUNIT»2311" 

//SYSIN OD •• 

COPY P0S«IMS.GENLIB,T0»231l-ILIB02,RENAME-IMS.MACLIB' 
SELECT MEMBER-OBO* 
SELECT MEMBER-DBDFP* 
SELECT MEMBER-DB0FP1* 
SELECT MEMBER-OBDGEN* 
SELECT MEMBER-OMAN' 
SELECT MEMBER-SEGM' 
SELECT MEMBER-GLOBALS* 
SELECT MEMBER-IDCBOS* 
SELECT MEMBER-CONVERT* 
SELECT MEMBER-FINISH' 
SELECT MEMBER-FLO* 
SELECT MEMBER-FLDK' 
SELECT MEMBER-PCB* 
SELECT MEMBER-PSBGEN' 
SELECT MEMBER-SENSEG* 
/•• 

//STEP4 EXEC PGM-IEBUPDTE,PARM-NEW,RFGION-90K* 
//SYSPRINT 00 SYSOUT-A' 

//SYSUT2 OD DSNAME-IMS.PKOCLIB.DISP-OLO* 
//SYSIN DO DATA* 
./ ADD NAME-.1LITCBL* 
INCLUDE SYS08JI0FSILI00I' 
ENTRY DLITCBL' 
./ ADD NAME-OLITPLI* 
INCLUDE SYS08JI0FSILI00I* 
ENTRY IHESAPB* 
./ ADD NAME-DLI' 

./ NUMBER NEW1»90000010,INCR«300PO')10* 
// PROC PSB-TEMPNAME' 

//G EXEC PGM-DFSIRCO0,PARM-**3,CSPS8**,REGION-120K* 
//IMS 00 OSNAME-IMS.PSBLIB.OISP-SHR* 
// DD DSNAME-IMS.OBOLIBtDISP-SHR* 
//SYSUOUMP DD SYSOUT-A, SPACE- I 605 ,( 500, 5001 ,RLSE , .ROUNOX 



188 



MS/360 SYSTEM DEFINITION SPECIFICATIONS PAGE 5 

LCr OBJECT CODE AODR1 ADDR2 STMT SOURCE STATEMENT F01JAN68 10/16/68 

♦ I. X* 

1*2* PUNCH •// DCB-<*ECFM«FBA,LRECl-121,BLKSIZE-605l' 

143 + PUNCH •./ ADO NAME-MSC080L' 

U«« PUNCH './ NUMBER NEW 1-000003 10, INCR-000P00 10* 

1*5* PUNCH •// PROC MBR-.PAGES-60' 

146 + PUNCH '//C EXEC PGM-IEJCBLOO.PARM-' 'S I ZF- UOOOO ,L INECNT-5X 

. ♦ 0",RFGION«126K' 

147+ PUNCH <//SrSLIN 00 DSNAME»£CttLIN,GISP-IMOD,PASS),UNIT-SYSDAX 

♦ .DCB'tLRECL'Sr, X' 

148* PUNCH '// PECFM-FB.BLKSIZE-*™!. SPACE-ICYL, 14, II, RX 

♦ LSEI • 

149 + PUNCH '//SYSPRINT DO SYSOUT- A, DCB- I KECFM-FBA.LRECL-121, BLKSI ZE X 

♦ -6151, X' 

150+ PUNCH •// SPACE«I605,(CtPAGES.0.CtPAGESI,RLSE,,ROUX 

♦ ND1' 

151* PUNCH '//SYSUT1 OD UM T-SYSOA, DI SP-INEW, DELETE I , SPACE* ICYL , I X 

♦ 10,11, RLSFI' 

152* PUNCH '//SYSUT2 00 UNI T«SYSOA, 01 SP«(NEM, DELETE) , SPACE-ICYL, (X 

♦ 10.ll.RLSE)' 

153+ PUNCH '//SYSUT3 00 UNIT-SYSOA, DISP-INEW, DELETE). SPACE-ICYL, IX 

♦ 10.ll.RLSE)' 

154* PUNCH '//SYSUT4 00 UNI T-SYSOA, 01 SP- (NEW, DELETE I , SP ACE»I CYL , ( X 

♦ lO.ll.RLSE)' 

155* PUNCH '//L EXEC PGM-DFSILNKO, PARM-' • XREF ,LI ST, LET " , REGIOX 

♦ N-100K, X' 

156* PUNCH •// COND»l*,LT,CI' 

157* PUNCH '//SYSLIB DO DSN AME-SYSl .COBL IB ,01 SP«SHR • 

158+ PUNCH •// OD DSNAME-SYSI.PL1L1B, OISP-SHR' 

1594- PUNCH '//SYSOBJ 00 DSNAME-IMS.RESLIB, OISP-SHR' 

160* PUNCH '//SYSLIN 00 OSNAME» tCtCL IN, OISP-IOLD. OELETE I • 

161+ PUNCH •// DD DSNAME«IMS.PROCLIB<CLITCBL).OISP«SHR' 

162* PUNCH •// 00 0DNAME-SYS1N' 

163* PUNCH '//SYSLMOD 00 OSNAME'I MS.PGMLI B( tCMBR 1 .DISP-SHR' 

164+ PUNCH '//SYSPRINT OD SYSOUT-»,DCB-(R ECFM-FBA.LRECL-121 . BLKSI ZEX 

♦ *605), X' 

165+ PUNCH •// SPACE-I605,£IPAGES.O,RLSE,,ROUNOI' 

166+ PUNCH '//SYSUT1 OD UNI T*SYSOA, DISP'INEW, DELETE) , SPACE- ICYL, (X 

+ lO.ll.RLSEI' 

167+ PUNCH •./ AOO NAME-IMSPLI' 

168+ PUNCH './ NUMBER NEW1-10.INCR-10' 

169+ PUNCH •// PROC MBR-.PAGES-50' 

171+ PUNCH '//C EXEC PGM»IEMAA,PARN-"XREF,ATR,LOAD.NOOECK,NX 

♦ OMACRO.OPT-1", X' 

171+ PUNCH •// REGI0N-114K' 

172+ PUNCH '//SVSUT1 OD UNIT-SYSOA, SPACE- 1 102*. ( 60 ,60) ,RLSE , ,ROUX 

♦ NO), X' 

173+ PUNCH •// DCB-IBLKS1ZE-1024I, DISP-INEW, PASS)' 

174+ PUNCH '//SYSPRINT OD SYS0UT*A,DCB-(LRECL«12 1, BLKSIZE-605,RECFX 

+ M-FBA), X' 

175+ PUNCH •// SPACE»(605,(CtPAGES.O,ttPAGESI, RLSEI' 

176+ PUNCH '//SYSLIN DD UN IT-SYSOA, SPACE- ( 80, (250,801 ,RLSE ) .DCB-X 

♦ BLKSIZE-80, X' 

177+ PUNCH •// DISP'INEW, PASSI' 

178+ PUNCH «//L EXEC PGM'DFSILNKO,PARH-"XREF, LIST, LET", CONDX 
+ -I4.LT, CI, X' 

l"$nC SYSTE" OKFINITIUN SPECIFICATIONS PAGE 6 

L>"C OrtJECT CODE AO0P1 ADD*? STMT SOURCE STATEMENT F01JAN68 10/16/68 

179+ PUNCH •// RFGI0N-100K* 

lf>i+ PUNCH "//SYSLIB 00 0SNAME»SYS1.PL1LIB,DISP»SHR' 

1H1+ PUNCH •// OD DSNAME-SYS1.C0BLIB, OISP-SHR' 

182+ PUNCH '//SYSLIN DO CSNAME-* .C.SYSL IN. 01 SP-I OLD, DELETE ) • 

181+ PUNCH •// OP OSNAME-IMS.PROCLIBIOLITPLI).OISP-SHR' 

ld4+ PUNCH •// 00 DONAME'SYSIN' 

185+ PUNCH '//SYSLMOD 00 OSNAME'I MS. PGMLIB1 SCMBR) .OISP-SHR" 

186* PUNCH '//SYSPRINT 00 SYSOUT*A ,OCB- I LRECL- 121, BLKSI ZE-605. RECFX 

+ H'FBA), X' 

187+ PUNCH •// SPACE'I605,ll£PAGES.0.ttPAGES). RLSEI' 

1R8+ PUNCH '//SYSOBJ OD DSNAME-I MS.RESLIB.OI SP-SHR ■ 

169* PUNCH '//SYSUT1 DO UNI T-SYSOA, DISP* (NEW, DEL ET El , SPACE-! CYL, X 

+ 15, II, RLSEI* 

190+ PUNCH ••/ AOD NAME-IMSCOBGO' 

191+ PUNCH './ NUMBER NEWl-OOOOOOlO.lNCR-00009010' 

192+ PUNCH '// PROC MBR*,PAGES*60' 

113+ PUNCH >//C EXEC PGM- IE1CBLO0, PARM-"SIZF-110000.L INECNT-5X 

♦ 0".REGION-126K' 

194+ PUNCH '//SYSLIN DO DSNAME'&tt&L IN, D1SP-I MOD. PASSI .UNIT-SYSDAX 

+ ,OCB*ILRECL*80, X' 

195+ PUNCH '// RECFM*FB, BLKSIZE-4001. SPACE-ICYL. 14. ll.RX 

♦ LSEI' 

196+ PUNCH '//SYSPRINT 00 SYS0UT*A.DCB*(RECFM*FBA,LRECL*121 . BLKSI ZEX 

♦ «605l, X' 

197+ PUNCH •// SPACE*(605,(CtPAGES.0,CtPAGES),RLSE,,ROUX 

♦ NO)' 

198+ PUNCH '//SYSUT1 DO UNI T-SYSOA, DI SP-INEW, DELETE I • SPACE-ICYL , I X 

+ 10, II, RLSEI' 

199+ PUNCH '//SYSUT2 00 UNI T-SYSDA, 01 SP-INEW. DELETE I , SPACE-ICYL , I X 

+ 10. II. RLSFI" 

2.-0+ PUNCH '//SYSUT3 DD UNI T-SYSOA, DISP-INEW.OELETEI ,SPACE««CYL, I X 

♦ 10,1), RLSEI' 

2"1+ PUNCH '//SYSUT4 00 UNIT-SYSOA, DISP'INEW, OELETE >. SPACE-CCYL. IX 

+ lO.ll.RLSEI' 

20?+ PUNCH '//L EXEC PGM«OFS1LNKO.PARM-"XREF, LI ST, LET", REGIOX 

+ N'lOOK. X* 

203+ PUNCH •// CONO»14,LT,CI' 

?14* PUNCH '//SYSLIB 00 0SNAME-SYS1 .COBL IB, 01 SP-SHR ' 

205+ PUNCH •// 00 OSNAME'SYSl.PHLIB.DISP'SHR" 

206+ PUNCH '//SYSOBJ OD OSNAME' IMS.KESL I B.OISP-SHR' 

207+ PUNCH '//SYSLIN DO OSNAME-tltlL IN, 01 SP»( OLO, DELETE ) • 

2«8+ PUNCH •// OD OSNANE'IMS.PROCLIBIDLITCBLI .OISP-SHR' 

?09+ PUNCH '// DO OfJNAMt«SYSIN« 

210+ PUNCH '//SYSLMOO 00 OSNAME- I MS .PGML I BlttMBR) , OISP-SHR' 

211+ PUNCH '//SYSPRINT 00 SYSOl)T»A,0CB-IRECFM-F6A,LRECL«121 .BLKSI ZFX 

♦ »605l, X' 

212+ PUNCH '// SPACE'(605,CtPAGES.0,RLSE, .ROUND)' 

213+ PUNCH '//SYSUTI 00 UNIT-SYSOA, DISP'INEW, DELETE). SPACE-ICYL, (X 

♦ lO.ll.RLSF)' 

214+ PUNCH "//r, EXEC PGM-0FSIRC00,PARM-"3,tCMBR".REGI0N«15iX 

+ K.CONO-in.LTI, X' 

215+ PUNCH •// TIME-2' 

216+ PUNCH '//IMS OD DSNAME«lMS.PSBLiB,DISP-SHR' 

217+ PUNCH '// DD 0SNAME-1MS.080LIB, OISP-SHR' 

218+ PUNCH '//SYSOUT 00 SYSOUT-A , SPACE-ICYL. 1 1 , 1 1 1 ,OCB-l LRECL-1 3X 
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4 




3,RECFM-FA)« 


2194 


PUNCH 


•//SVSUDUMP OD 


4 




E-3025), 


220 + 


PUNCH 


•// 


221* 


PUNCH 


•./ ADD 


222* 


PUNCH 


'./ NUMBI 


223* 


PUNCH 


'// PROC 


224* 


PUNCH 


•//C EXEC 


♦ 




OMACRO.OPT-1", 


225* 


PUNCH 


•II 


226* 


PUNCH 


•//sysuti no 


♦ 




NDIt 


227* 


PUNCH 


'II 


22B* 


PUNCH 


•//SYSPR1NT DD 


4 




M-FBA) , 


221* 


PUNCH 


'II 


230» 


PUNCH 


■//SYSL1N OD 


♦ 




BLKSUE-80, 


?31* 


PUNCH 


'II 


232» 


PUNCH 


'III EXEC 


4 




-I4.LT, CI, 


233* 


PUNCH 


'II 


234* 


PUNCH 


•//SYSLIB DO 


235* 


PUNCH 


•// OD 


236* 


PUNCH 


•//SYSLIN DD 


237* 


PUNCH 


•// DD 


238* 


PUNCH 


•// on 


239* 


PUNCH 


•//SYSLMDO OD 


2*0* 


PUNCH 


•//SYSPRINT DO 


4 




M-FBA), 


2*1* 


PUNCH 


'II 


2*2* 


PUNCH 


•//SYSOHJ OD 


243* 


PUNCH 


•//SYSUTI OD 


4 




IStll>RLSEI* 


244* 


PUNCH 


<//G EXEC 


♦ 




I.REGION-150K, 


245* 


PUNCH 


'II 


2*6* 


PUNCH 


•//IMS OD 


247* 


PUNCH 


•// 00 


248* 


PUNCH 


•//SYSPRINT DO 


♦ 




M*F8A) , 


249* 


PUNCH 


'II 


250* 


PUNCH 


•//SYSUOUMP DO 


♦ 




M>FBAI , 


251* 


PUNCH 


•II 


252* 


PUNCH 


• . / ADD 


253* 


PUNCH 


• . / NUMB 1 


254* 


PUNCH 


•// PROC 


255* 


PUNCH 


•//C EXEC 


* 




2K« 


2 56+ 


PUNCH 


■//SYSLIB DD 


257* 


PUNCH 


'II 


258* 


PUNCH 


'II OD 


2 59* 


PUNCH 


•//SYSCO 00 



SYS0UT-A,0CB«ILRECL-121,RECFM«FBA,BLK.SIZX 
X' 

SPACE« I 3025, 1 200.1 001, RLSE.. ROUND I • 
NAME-INSPLIGO' 
NUMBER NEHl»n,INCR«10' 
HBR-,PAGES-50' 
PGM»lEMAA,PARM»"XREF,ATR,LDAD,NOOECk,NX 
X« 
REGI0N-114K' 

UNI T«SYSOA, SPACE- (1024, (60, 60 1, RLSE., ,ROUX 
X' 

DCJ«(BLKSIZE-1024),DISP» (NEW, PASS)' 
SYS0UT-A,0CB-(LRECL-121»BLKSIZE-605,RECFX 

x» 

SPACE-(605,(ltPAGES.3,tlPAGESI,RLSE)' 
UNIT»SYSDA,SPACE*(80,(250.80),RLSF),DCB-X 



DISP«(NEW,PASS>' 
PGM-DFSILNK.O.PARN- 



•XREF, LIST, LET", CONDX 



REGION-1O0K* 

DSNANE-SYS1.PL1LIB.DISP-SHR' 

DSNAME-SYSl.COBLlB.DISP-SHR' 

DSNAME-*. C. SYSLIN, DISP-I OLD, DELETE I ■ 

DSNANE«INS.PROCLIB(DL!TPLI>.DISP«SHR' 

ODNAME-SYSIN' 

DSNAME-INS.PGMLIStSCMBRI.DISP-SHR' 

SYS0UT-A,0C8-(LRECL«121.BLICSIZE-605.RECFX 

X' 

SPACE- 1 605, UtPAGES.O.tSPAGE SI, RLSE »■ 

DSNAME-IMS.RESLIB.OISP-SHR* 

UNlT-SYSOA.D ISP- (NEW, DELETEI, SPACE-! CYL.X 

PGN«DFSIRCOO,PARM«*'3,HMBR".CONO-(4,LTX 

X' 
TIME-5* 

DSNAME-INS.PSBLIB.OISP-SHR* 
DSNAME-IMS.DBOLIB.OISP-SHR' 
SYS0UT«A,0CB»(LRECL«121.BLKSIZE-605,RECFX 
X 1 

SPACE- ( 605, (500, 5001, RLSE, ,ROUNO I' 
SYS0UT-A,DCB-(LRECL-121,BLKSI2E-6O5,RECFX 



SPACE-(605i(500,500),RLSE,,ROU 
NANE-PSBGEN* 
NUMBER NEW1-1O.INCR-10' 
MBR-TEMPNAHE' 
PGM»IEUASN,PARN-*'L0A0,N0OECK' 



.REGI0N-9X 



VDLUME-SER-ILIB02.0ISP-SHR, X 

CONTINUE* 

0SNAME»IMS.NACLIB,UNIT«23U' 
DSNAME-SYS1.NACLIB.DISP-SHR* 
UNIT-SYSDA.DISP»(,PASS),DCB-(6LKSIZE-400X 
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260* 

♦ 

261* 

262* 
263* 

♦ 
264* 

♦ 
265* 

4 
266* 
267+ 

♦ 
268* 
269* 
270* 
271* 

♦ 
272* 
273* 
274* 

♦ 
275* 
7744 
2 77* 
278* 
279* 

280* 

♦ 

2B1 + 

282» 

2S34 

4 

284 + 

♦ 

2B54 



2H84 

4 

2894 



292* 
2934 
2944 
2954 



PUNCH •// 

LSEI* 
PUNCH '//SYSPRINT DO 

E-6051, 
PUNCH •// 
PUNCH '//SYSUTI DD 

00,50)1* 
PUNCH *//SYSUT2 OD 

00,5011' 
PUNCH '//SYSUT3 DD 



PUNCH •// 
PUNCH *//L 

LT,C), 
PUNCH •// 

PUNCH .•//SYSLIN DD 
PUNCH 
PUNCH 



EXEC 



RECFH»FB,LRECL*80), SPACE- (80,(100, 100), PX 
SYS0UT-A,0CB«(LRECL-121,RECFH«FBA,BIKSIZX 



SPACE- (1 21, (500, 500), RLSE,, ROUND I' 

UNI T-S YSOA. 1 SP-C, DELETE I, SP ACE- 1 1700, (IX 



UN IT-SYSDA, DISP-I, DELETE I, SPACE- (1 700, I IX 
UNIT-ISYSOA, SEP- (SYSLIB, SYSUTI, SYSUT2II.X 



SPACE-(1700.(100,50))' 
PGM»DFSILNK0,PARH-**XREF,LIST**,COND-(0,X 



REGION-100K' 

DSNAME«*.C.SYSGO,DISP»(OLD,DELETE)' 
DONAME-SVSIN' 
//SYSPRINT DD SYS0UT«A,DCB*(LRECL«121,RECFM-FBA,BLKSIZX 
E-6051, X' 

PUNCH •// SPACE»(121, (100, 1001, RLSE)' 

PUNCH '//SYSLMDD DD DSNAME-IMS.PS3L1BIC6MBRI .DISP-SHR' 
PUNCH '//SYSUTI 00 UNIT-ISYSOA, SEP- (SYSLMOD, SYSLIN) ),DISP*(X 

.DELFTFI, X' 

PUNCH •// SPACE-(l024,(inO,10),RLSE)' 

PUNCH *./ ADD NAME-OBDGEN' 

PUNCH './ NUMBER NEW1-10.INCR-10* 

PUNCH '// PROC HBR-TEMPNAME' 

PUNCH 'lit EXEC PGM»IEUASM,PARM»"L0A0,N00ECK",REG10N«9X 

2K' 
PUNCH '//SYSLIB DD VOLUME-SER-I LI 602, DI SP-SHR,, X 

CONTINUE' 

DSNAME-IMS.MACLIB,UNIT«2311' 
DSNAME-SYS1.MACL IB.OISP-SHR' 
UN IT-SYSDA, DISP-I, PASS I, DC B-IBLXS 1 2E«40"X 



PUNCH 
PUNCH 
PUNCH 



'//SYSGO DD 



PUNCH 
PUNCH 



«// 

LSE)' 

•//SYSPRINT 00 

E-6151, 
PUNCH •// 
PUNCH '//SYSUTI DD 

0?, SOU- 
PUNCH '//SYSUT2 OD 

00,50))' 
PUNCH '//SYSUT3 UD 



RECFM-FB.LRECL-80), SPACE-! 80, ( 100, 100), RX 
SYS0UT-A,0CB-(LRECL-121,RECFM=FBA,BLKSIZX 



SPACED (I 21, (500, 500), RLSE,, ROUND)' 

UN IT-SYSDA.D ISP- I, DELETE), SPACE- (1700, (IX 



UMT-SYSOA, DISP-I. DELETE), SPACE- (1700, (IX 
UNlT-t SYSOA.SEP-ISYSLIB, SYSUTI, SYSUT2I ),X 



EXEC 



PUNCH '// 
PUNCH 'III 

LT.C), 
PUNCH ■// 

PUNCH '//SYSLIN no 
PUNCH •// OD 

PUNCH '//SYSPKlNT DD 

F.-605), 



SPACE-11710, (100,50) I' 
PG-MDFS1LNK0»PARH»««XREF,LIST« 



,CON0-(0,X 



RFGIO4-1O0K* 

nSNAME-*.C.SYSG0,nl SP-IOLO, DELETE I • 

DDNAME-SYSIN' 

SYS0UT-A.0CB-ILRECL-121.RECFM-FBA.BLKSIZX 
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29b* 
797* 
298* 

299* 
300* 
301* 
302* 



311* 
♦ 
312* 
313* 
314* 
315* 
316* 
317+ 
318* 
319* 
320* 

321* 

322* 
323* 
324+ 
325* 

376* 
327 + 



330* 
331* 
33?t 
333* 
334 + 
335* 
336* 
337+ 
33Ht 



PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



/*• 

//STEPS EXEC 

K' 

//SYSLIB DD 

// no 

//SYSGfl 1)0 
SIZE«*00, 

II 
11% 

»FB 

// 
//sysuti no 

'),51)t« 
//SYSUT2 DD 

o.soi) 1 

//SYSUT3 DD 
DISP*I .OELFTE) 
II 

//SYSIN DD 
DFSISCD CSECT< 



// SPACEM121, (100, 1001, RLSEI 1 

//SYSLMOD DD DSNAME'IHS.DBDLIBICCMBR) ,DISP«SHR* 

//SYSUTI DD UNIT>ISYSDA,SEP'(SYSLMOD,SYSLIN)),OISP'(X 

DELETE), X' 

// SPACE<(1024,(100,10),RLSE) ■ 

./ FNOUP' 



PGM«IEUASM,PARM»'<|.OAD,NOOECK' •,«ECIUN«9X 

DSNAME-IMS.GENLIB.OISPMOLO.PASS) 1 

DSNAME-SYSI.MACLIB.DISP-SHR 1 

UNIT«$YSDA,D1SP«<.PASSI,0CB*(LRECL-80,HLX 

X' 

RECFM^FBl.SPACE-ITRK.UO.lOI.RLSE) 1 

SYS0UT>A,DCB>(LRECL-121,BLKSIZE*60S,RECFX 

X 1 

SPACE»(605,( I'M, 50 ),RLSF,, ROUND >• 

UNIT-SYS0A,DISP»(,DELETEI.SPACE«(1710,<1X 

LiNIT"SYSDA,DISP»(,DELETE),SPACE-(17T>,(lX 

UNIT=(SYSDA,SEP*(SYSLIB,SYSUU,SYSUT2I >,X 
X« 

SPACE'IITOI.UOP.SO)) 1 



ISCO SECTYPE'CSECT* 
ENO' 

/*• 

//STEP6 EXEC PGM'IEWL, PARM'^RENT.NCAL, LIST, XREF 11 , REX 

ION'llOK 1 

//SYSPRINT DD SYS0UT-A,DCB=(LRECL«121.BLKSIZE»605,RECFX 

»FBA), X' 

// SPACE«I6C5,(10,10I,RLSE,.ROUND)* 

//SYS1IN DD DSNAME*». STEPS. SYSGO, OISP-JOLD, DELETE) • 

// DD DDNAME=SYSIN* 

//SYSDBJ DD VOLUME*SER»ILIB01,0ISP-(OLD,PASS>, X 
CONTINUE* 

// 0SNAME-IMS.RESL1B.UNIT-2311* 

//SYSLMOD DO VOLU»E-SER*ILIB0l,DISP-<OLD,PASS), X 
CONTINUE 1 

// DSNAME-IMS.RESLIB,UNIT»23U' 

//SYSUTI DD UNIT»ISYSDA, SEP'ISYSLIN, SYSLMOD) ),OISP-(X 

DELETE), X 1 

// SPACEMlTDO.dOO.SOl) 1 

//SYSIN DD *' 

INCLUDE SYSOBJ(DFSIOSIO) OSAM OPEN ROUTINE 1 
INCLUDE SYSOBJ(DFSISMMO) STORAGE MANAGEMENT MODULE 1 
INCLUDE SYSOBJIDFSIDLOOI DL/I OPEN MOOULE 1 
INCLUDE SYSnBJIOFSIDLCOl DL/l CLOSE MODULE 1 
INCLUOE SYS0BJIDFS10BA0) DL/I BATCH ANALYZER* 
INCLUOE SYSOBJ(DFSIBKBO) DL/I BATCH BLOCK MODULE* 
ENTRY DFSSTART 1 



l**.nh« SYSTEM DEFINITION SPF C 1 F ICAT IONS 
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DL/I BATCH NUCLEUS* 



»,**• SUCCESSFUL IMS/360 SYSTEM DEFINITION 

>, DEFINITION IS F'JR BATCH IMS/361 FUNCTIONS. 
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MS/36" SYSTEM DEFINITION SPFC I F It AT I'JNS 



•>MJF("T C">E Afmkl SDI*? STMT 

346 
3*7 
34H 
»<•<> 
3S' 
3M 
3S2 
3^3 

3«>5 
3}6 
3S.7 
3SH 
3S<3 
'3f.C 
161 
3t>2 
3f 3 
?6<i 
3c-) 
3 oh 
3 07 
3 68 
3<i<) 



SOURCE STATEMENT 
' WARNING ♦* 



F0IJAN68 10/16/66 



IGOISnA MUST HE MOVED Tfl SYS1.SVCLIB AND IGC24S 
.MLST BE LINK eplTFn WITH THE OS/360 NUCLEUS FDR 
.SUCCESSFUL MS/361 SYSTEM EXECUTION. 

OFSILNKO ANO OFSIKCm SHOULD BE IN SYS1.L1NKL1B 
,F[)3 EFFICIENT IMS/360 SYSTEM OPERATION. 

STE I »»S/3f- r > ANJ IIS/36* SYSTFM OPERATION MANUALS 
,F.J.< MODULES T'J HE PLACED IN LINK PACK AREA FOR 
.EFFICIENT SYSTtM TPz^ATIlN. 

USER SHC1UL0 ORTAIH A POS DIRECTORY LISTING OF 
,THf LIBRARIES CREATED BY STAGF II OF IMS/360 SYSTEM 
.GENFRATK.'N. 

STAGE II I1F MS/361 SYSTEM GENERATION HILL PLACE 
.ALL SYSTEM LOAP M'lOJLFS IN IMS.RESLIB. 



NO STATtMfNts FLAGGE!) IN TrllS ASSfMHLY 
466 PRINTIO IINIS 



^ 
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CHAPTER 5. IMS/360 SECURITY MAINTENANCE PROGRAM 



SECURITY MAINTENANCE 

Although IMS/360 system definition creates the majority of resident 
control blocks for the IMS/360 control program, it does not supply 
security capabilities. These capabilities are supplied in IMS/360 
through a security maintenance program which allows the IMS/360 user the 
flexibility of changing security information without redefining his 
entire system. Security is provided by terminal and by password. 

The reader should be familiar with IMS/360 system definition to 
obtain the best use of the following information. 

The function of the security maintenance program (SMP) is to create 
or alter password or terminal protection of an online IMS/360 system. 
The generated IMS/360 system has only a minimum subset of terminal 
security to protect DISPLAY, NRESTART, CHECKPOINT, ERESTART, START, 
CHANGE, STOP, PURGE, DBRECOVERY, DBLOG, DBNOLOG, DBDUMP, ASSIGN, DELETE, 
and PSTOP commands, The security maintenance program creates password 
and terminal security for transactions and additional commands entered 
from terminals; it also creates password security on data bases and 
programs. The control of the security maintenance program is such that 
the user may view his system in terms of resources to which passwords 
may have access, or he may view the system as a security profile system, 
that is , by defining a password which has access to a set of resources . 
The detailed explanation covers the use of the various control cards to 
describe either a "profile-oriented" system or a "resource-oriented" 
system of security maintenance. There is no restriction on the use of 
both types of description within the same security maintenance program 
execution. 

Password Maintenance 

If password maintenance control cards are presented in the input 
stream for the SMP, the password maintenance function is performed. 
Using the SMP password control cards, the following functions are 
available: 

• Add passwords to or delete passwords from the IMS/360 communication 
password table (CPT) . 

• Change the password security requirements for transaction codes, 
terminal command verbs, program status changes, data base status 
changes, and logical or physical terminal status changes. 

IMS /3 60 password table and password matrix changes become effective 
the next time IMS/360 is restarted. If the next restart is a "cold 
start", the master terminal operator may specify that the system-defined 
status be used or that the new table and matrix be used. If the next 
restart is a "warm start", the master terminal operator may specify that 
the current status of the password table and matrix is to be restored 
using the system checkpoint records, or that the new password table and 
matrix are to be used. 

Terminal Security Maintenance 

If terminal security maintenance control cards are presented in the 
input stream for the SMP, maintenance functions are performed upon the 
IMS/360 communications terminal matrix. Using the SMP terminal security 
control cards, the following function is available: 
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• Add to or delete from terminal security requirements for command 
verbs and application program transaction codes. 

Terminal security changes become effective the next time IMS/360 is 
restarted. If the next restart is a cold start, the master terminal 
operator may specify that the system-defined status be restored or that 
the new terminal matrix is to be used. If the next start is a warm 
start, the master terminal operator may specify that the current status 
of terminal security be restored using system checkpoint records, or 
that the new terminal security matrix is to be used. 

The security maintenance program will not execute until an IMS/360 
system definition has been performed. Input requirements for the SMP 
include an IMS/360 system description block (SDB) , which is created at 
system definition time and which must reside in the same library with 
the IMS/360 control program nucleus. If multiple IMS/360 systems exist, 
the SMP maintains as many as nine sets of security control blocks in the 
same library. If errors are encountered in processing SMP control 
cards, no security block update functions are performed. Diagnostic 
error messages are produced for the entire input stream. At user 
option, the SMP performs a no-update run, producing a printed analysis 
of IMS/360 security requirements. In addition, each execution of the 
SMP produces a printed analysis of the IMS/360 configuration being 
maintained. 

Control and Data Statements 

The security maintenance program control and data statements 
available are PASSWORD, TERMINAL, TRANSACT, COMMAND, DATABASE, PROGRAM, 
and PTERM. In general, each of these cards may be used as required. 
The specifications to be considered in designing a password security 
system must be tailored to the particular environment in which IMS/360 
is to run. The control cards above are used to describe the security 
environment that the IMS/360 system is to use in processing messages and 
commands. 

Control statements are identified by ) ( characters (close and open 
parentheses in combination) in positions 1 and 2, followed by a blank in 
column 3. Data statements are identified by a blank in position 1. A 
control statement remains in effect until another control statement or 
end of input data is encountered. Each statement, control or data, has 
only one allowable operand. Valid combinations of control and data 
statements are shown in Figure 24. 



r 



194 



r - - - n 

| NAME | OPERATION | OPERAND | 


| ) ( | PASSWORD | password | 
| | TERMINAL j logical terminal name j 
j | TRANSACT | transaction code j 
j | COMMAND j command language verb j 
j | DATABASE j name j 
| | PROGRAM | name j 
| | PTERM | name j 


| ) ( j TERMINAL j logical terminal name j 
| | PASSWORD | password j 
j | TRANSACT | transaction code | 
| | COMMAND | command language verb j 

j ) ( | TRANSACT | transaction code j 
j | PASSWORD | password | 
j | TERMINAL j logical terminal name j 

j ) ( | COMMAND j command language verb j 
j | PASSWORD | password J 
| | TERMINAL | logical terminal name j 

j ) ( | DATABASE j name j 

1 1 or 1 1 
j ) ( | PROGRAM j name j 

1 1 or 1 1 
| ) ( | PTERM | name | 

| j PASSWORD | password j 



where : 
password 



A password must contain only alphameric characters and may be one 
through eight characters in length. The longest password 
statement encountered in the input stream governs the maximum 
length of the input password that will be accepted by the system. 
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Data statements are terminal transact command, data base, 
program, and PTERM. 

logical terminal name 

A valid logical terminal name may be one through eight characters 
in length. Terminal names that are not defined in the system 
being maintained are invalid and will be rejected by the security 
maintenance program. 

transaction code 



A valid transaction code may be one through eight characters in 
length and must be defined in the IMS/360 online system being 
maintained. If it is not, it is treated as invalid by the 
security maintenance program. 



name 



A valid data base name, program name, or physical terminal number 
is available from Stage 2 output of IMS/360 system definition. 



command language verb 



Valid command language verbs may be obtained from the Stage 2 
output of IMS/360 system definition. The command verb, less 
leading slash, may be abbreviated to the first three characters. 

Notes : Only the first three characters of the operation code are 
required to identify control or data statements. Physical 
terminal numbers may be found in the terminal map printed in the 
assembly of DFSISDBO in Stage 2 of IMS/360 system definition. 

To define additional passwords, a PASSWORD control statement may 
be used with no following data statements: 



)( 
)( 



PASSWORD 
PASSWORD 



ABCD 
EFGH 



DATA 
CARD 
TYPE 


CONTROL CARD TYPE 


PASSWORD 


TERMINAL 


TRANSACT 


COMMAND 


DATABASE 


PROGRAM 


PTERM 


PASSWORD 


NO 


YES 


YES 


YES 


YES 


YES 


YES 


TERMINAL 


YES 


NO 


YES 


YES 


NO 


NO 


NO 


TRANSACT 


YES 


YES 


NO 


NO 


NO 


NO 


NO 


COMMAND 


YES 


YES 


NO 


NO 


NO 


NO 


NO 


DATABASE 


YES 


NO 


NO 


NO 


NO 


NO 


NO 


PROGRAM 


YES 


NO 


NO 


NO 


NO 


NO 


NO 


PTERM 


YES 


NO 


NO 


NO 


NO 


NO 


NO 



Figure 24. Security maintenance control and data card types 
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Control and Data Statement Combinations 

The following outlines the use of various control and data statement 
combinations : 



Control 
Statement 

1. PASSWORD 
TERMINAL 



2. PASSWORD 
TRANSACT 



3. PASSWORD 
COMMAND 



4. PASSWORD 
DATABASE 



Data 
Statement 

TERMINAL 
PASSWORD 



TRANSACT 
PASSWORD 



COMMAND 
PASSWORD 



DATABASE 
PASSWORD 



Explanation 

To require a password to be used with 
the logical terminal name when 
modifying the status of a logical 
terminal via a /LOCK, /UNLOCK, 
or /IAM command 

To require a password to be entered 
from the input terminal following the 
transaction code for each message 

To require a password to be entered 
following the command verb when 
using the terminal command language 

To require a password to be entered 
following the data base name when 
modifying the status of a data base via 
a /LOCK or /UNLOCK command 



5. PASSWORD 
PROGRAM 



PROGRAM To require a password to be entered 
PASSWORD following the program name when 

modifying the status of a program (PSB) 
via a /LOCK or /UNLOCK command 



6- PASSWORD 
PTERM 



PTERM To require a password to be entered 
PASSWORD following the keyword PTERM when 

modifying the status of a physical 
terminal via a /LOCK, /UNLOCK, or /IAM 
command 



7. TERMINAL 
TRANSACT 



8. COMMAND 
TERMINAL 



TRANSACT To restrict use of a transaction code 
TERMINAL to a specific logical terminal. 

Note : Entry of the named transaction 
codes will be only permitted from the 
terminals specified. 

TERMINAL To restrict use of a command verb to 
COMMAND specific logical terminals 



Input statements may be used as control cards or data cards. Using 
the input statements, security requirements may be expressed as either 
profile-oriented or resource-oriented. A profile security system 
describes the resources to be secured in terms of the securing element, 
For example, the following describes a profile for password SAMSMITH. 



) ( PASSWORD SAMSMITH 



TRANSACT 


PAYROLL 


TRANSACT 


PERS 


COMMAND 


LOCK 


COMMAND 


UNLOCK 


DATABASE 


PAYREC 


PROGRAM 


PAYPROG 



To describe these same security requirements by resource, the 
following statements are required. 
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TRANSACT 

PASSWORD 

TRANSACT 

PASSWORD 

COMMAND 

PASSWORD 

COMMAND 

PASSWORD 

DATABASE 

PASSWORD 

PROGRAM 

PASSWORD 



PAYROLL 

SAMSMITH 

PERS 

SAMSMITH 

LOCK 

SAMSMITH 

UNLOCK 

SAMSMITH 

PAYREC 

SAMSMITH 

PAYPROG 

SAMSMITH 



As the preceding example illustrates, passwords may be more easily 
described by using the securing elements as data. Terminal security, 
however, is more easily described by using the secured element, the 
transaction, as a control statement, followed by the security elements, 
the terminals, as data. 

) ( TRANSACT PAYROLL 

TERMINAL DEPTUO 

TERMINAL DEPT65 

TERMINAL VPPERS' 
) ( TRANSACT PERS 

TERMINAL DEPT40 

The reverse or profile example would be: 

)( TERMINAL DEPT40 

TRANSACT PAYROLL 

TRANSACT PERS 

) ( TERMINAL DEPT65 

TRANSACT PAYROLL 

) ( TERMINAL VPPERS 

TRANSACT PAYROLL 

The basic online system provides terminal security only for a subset 
of the command language. The following example would secure a more 
typical set of commands against entry from any terminal except the 
master terminal: 



) ( TERMINAL 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 



master terminal name 
START 
STOP 
NRE START 
CHECKPOINT 
PSTOP 
ERESTART 
DBRECOVERY 
ASSIGN 
BROADCAST 
CHANGE 
DBDUMP 
DOMPQ 
PURGE 
LOG 



Description of SMP Output 

The security maintenance program produces three printed reports. The 
first report is the logical configuration of system being maintained, 
the second is the password table generated, and the third is the matrix 
for the security of a particular nucleus. 



..! 
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Security Maintenance Program Execution 

The security maintenance run is a three-step job. The first step 
accepts the input control and data cards for the security maintenance 
program and edits them for correct format and validity against the 
IMS/360 system being maintained. If there are no errors in the first 
step, the second step, an Operating System/360 assembly, will be 
performed. Step three is a link-edit which takes the assembly output 
from step two and creates the communication password table, 
communications password matrix, and communication terminal matrix load 
modules used by the IMS/360 control program. Depending upon the input 
presented, a variable number of output load modules will be created. 

The maximum bounds of the generated matrices, terminal or password 
are expressed as: 

(1/8) * R = M = < 32767 

where : 

M is the total main storage requirement in bytes. 

I is the number of securing resources (passwords or logical terminals). 

R is the number of unique combinations of secured resources. 

The maximum number of entries in the password table is expressed as: 

1/8 = < 32768 

where I is the total number of passwords. 

To perform a security maintenance run, the user must have previously 
defined an IMS/360 control program using the value ALL as the second 
sublist entry of the SYSTEM operand of the IMSCTRL macro-instruction. 
One of the modules created during Stage 2 of IMS/360 system definition 
is a directory of resources of the defined system, which is placed in 
the IMS.RESLIB data set. This directory and the security maintenance 
control cards comprise the input requirements for the security 
maintenance program (SMP) . Output from the SMP consists of four 
sequential members in IMS.RESLIB. These members may not be reprocessed 
using the linkage editor. The four members contain: 

1. Communication Password Table (CPT) 

2. Communication Terminal Matrix (CTM) 

3. Terminal Offset List (CTL) 

4. Password Offset List (CPL) 

In addition, the SMP provides a listing of the created maintenance 
tables. Each run of the SMP replaces previously created members. 
Figure 25 depicts the security maintenance flow. 
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PASSWORD 

TABLE 

etc. 



Figure 25. Security maintenance flow 
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The table below shows the Job Control statements by step necessary to 
execute the security maintenance utility. 



| STATEMENT | USAGE | 


1 JOB | Initiates security maintenance job j 
| statement | | 


j JOBLIB | Defines the partitioned data set named in j 
j statement j RESLIB macro-statement during IMS system j 
j j definition. Contains the members DFSINUCn| 
j | and DFSISMPO. j 


j step S | | 


j EXEC j Specifies the program name (PGM=DFSISMPO) j 
j statement j and may contain a PARM keyword value of j 
| j the form j 

I I PARM = 'UPDATE, 0* | 
| | 'option, number 1 | 

| | option | 
j j LIST - validity check and list new | 
| | security tables j 
j j UPDATE - validity check, list, and j 
| j update security tables in RESLIB | 

| j number | 
j | a value ranging from 0-9 which is j 
j j the last character of the IMS/360 j 
| | nucleus member name to be maintained! 


j SYSPRINT | Defines a sequential message data set. | 
j DD | The data set can be written to system | 
| statement j output devices, magnetic tape, or direct | 
j | access volumes. The following DCB | 
| j parameters must be specified: j 

| | RECFM=VBA | 
j j BLKSIZE=125 or greater | 
j | BUFL=value of BLKSIZE + 4 j 



L ... 
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r - - 

| SYSPUNCH | Defines a sequential output data set 
j DD | which contains Assembler statements 
| statement | produced by step S. The data set may be 
| | passed to step C. The following DCB 
j | parameters must be specified: 

| | RECFM=F or FB 

| | LRECL = 80 

j | BLKSIZE =80 or multiple of 80 


| SYSLIN | Defines a sequential output data set 
| DD | which contains linkage editor control 
| statement | statements produced by step S. The data 
j | set may be passed to step L. The follow- 
j | ing DCB parameters must be specified: 

| | RECFM=F or FB 

| | LRECL = 80 

j j BLKSIZE = 80 or multiple of 80 


| SYSUT1 j Defines a sequential work data set used 
j DD J only during step S. The following DCB 
| statement | parameters must be specified: 

| | RECFM=F or FB 

| | BLKSIZE = 100 or multiple of 100 


j SYSUT2 | Defines a sequential work data set used 
| DD | only during step S. The following DCB 
j statement j parameters must be specified: 

| | RECFM=F or FB 

| | BLKSIZE = 100 or multiple of 100 


j SYSIN | Defines a sequential data set or a member 
j .DD | of a partitioned data set which contains 
j statement | security maintenance input statements. 
j j The following DCB parameters must be 
j j specified: 

| | RECFM=F or FB 

| | BLKSIZE = 80 or multiple of 80 



r 
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| step C | 


| EXEC | Specifies the program name (PGM=IEUASM) 
J statement | of the assembler. Following parameters 
J | must be present: 

| | PARM= • LOAD, NODECK • 
| | C0ND=(12,LT,S) 


1 SYSPRINT | Defines a sequential message data set. 
| DD J The data set can be written to system 
| statement | output devices f magnetic tape, or direct 
J | access volumes. The following DCB 
| J parameters must be specified: 

| | RECFM=FM or FBM 

| | LRECL = 121 

J | BLKSIZE=121 or multiple of 121 

1 1 i 


| SYSGO | Defines a sequential temporary data set 
| DD | for object output from the assembler. 
| statement | The data set may be passed to step L. 


| SYSUT1 | Defines sequential data sets used for work 
| SYSUT2 | space by the assembler only during step C. 
| SYSUT3 | 

1 D D I 
| statements J 


| SYSIN | Defines passed sequential input data set 
| DD | created in step S using DD name SYSPUNCH. 
j statement | 
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| step L | 


1 EXEC | Specifies the program name (PGM=IEWL) 
j statement J of the linkage editor. Following 
1 | parameters must be present: 

| | PARM= , LIST # NE # OL l 
| | C0ND=(4,LT,S) 


j SYSPRINT | Defines a sequential message data set 

| DD | for the linkage editor. The data set can 

| statement j be written to system output devices, 

j | magnetic tape, or direct access volumes. 

I j The following DCB parameters must be 

| j specified: 

J | RECFM=FA or FBA 

| | LRECL=121 

j | BLKSIZE=121 or multiple of 121 


| SYSLMOD | Defines output partitioned data set for 
J DD J the linkage editor. Normally the same 
j statement | data set specified for DD name JOBLIB. 


| INPUT | Defines passed sequential temporary data 
| DD | set created using DD name SYSGO in step C. 
j statement | 


| SYSUT1 | Defines sequential temporary data set 
| DD j used in step L by the linkage editor, 
j statement j 


| SYSLIN | Defines passed sequential temporary data 
j DD | set created using DD name SYSLIN in 
| statement | step S. 



Once created, these new matrices and the password table are not made 
available to the online system until a restart is performed. At normal 
restart time, the operator has the option of incorporating or not 
incorporating the newly created security tables. At either cold start 
(that is, NRESTART CHECKPOINT 0) or warm restart (NRESTART any 
checkpoint number) , the new security tables are not included unless 
specifically requested by the system operator. The two keyword operands 
of the NRESTART command, which are used to request new security, are 
PASSWORD, for password security, and TERMINAL, for terminal security. 
Once these two keywords are used in a normal restart, the system 
checkpoint facility causes the new security maintenance to continue 
through subsequent warm starts. If the user desires, once a normal 
successful restart using the normal keywords has been accomplished, he 
may change his system security configuration. Again, these changes will 
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not become effective until the user specifically requests them at normal 
restart time. 



SECURITY MAINTENANCE EXAMPLE 

The following is an example of the input cards for the security 
maintenance program that reflects the system definition example in this 
chapter. This example assumes: 

• A password exists for each program. 

• A password exists for each data base. 

• A password exists for each transaction code except INQUIRY. 

• The list of terminals can use each transaction code, along with the 
required password. 

• Some IMS/360 terminal commands are limited to the master terminal. 

• The master terminal can enter all IMS/360 terminal commands and 
transaction codes defined by the system definition example in this 
manual . 



) ( PROGRAM 

PASSWORD 

) ( PROGRAM 

PASSWORD 

) ( PROGRAM 

PASSWORD 

) ( PROGRAM 

PASSWORD 

) ( DATABASE 
PASSWORD 

) ( DATABASE 
PASSWORD 

) ( DATABASE 
PASSWORD 

) ( DATABASE 
PASSWORD 

) ( DATABASE 
PASSWORD 

) ( DATABASE 
PASSWORD 

) ( TRANSACT 
PASSWORD 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 

) ( TRANSACT 
PASSWORD 



ACCT 
DOLLAR 

ENG560 
PARTNO 

LOGREC 

NONE 

AGC0568 
MONEY 

ACCTLOG 
LOG 

ACCTREC 
REC 

ACTIVITY 
ACTIVE 

ENGREC 
PIERSQ 

PARTSREC 
PIERSQ 

PARTSREC 
ASSY 

ACCTCHG 
CHARGE 
A875111 
C87 51112 
D87 51113 
A87 51114 
A87 51115 

ACTY 
GO 
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TERMINAL 


A8751111 


TERMINAL 


C8751112 


TERMINAL 


D8751113 


TERMINAL 


A8751114 


TERMINAL 


A8751115 


) ( TRANSACT 


TNL 


PASSWORD 


QTY 


TERMINAL 


DEPT 650 


TERMINAL 


DEPT 610 


TERMINAL 


DEPT 620 


TERMINAL 


DEPT 631 


TERMINAL 


DEPT 632 


TERMINAL 


DEPT 630 


TERMINAL 


DEPT 640 


TERMINAL 


DEPT 641 


TERMINAL 


DEPT 642 


) ( TRANSACT 


ING 


PASSWORD 


QUESTION 


TERMINAL 


DEPT310 


TERMINAL 


DEPT311 


TERMINAL 


DEPT312 


TERMINAL 


DEPT410 


TERMINAL 


DEPT411 


TERMINAL 


DEPT412 


TERMINAL 


DEPT510 


TERMINAL 


DEPT511 


TERMINAL 


DEPT512 


TERMINAL 


DEPT100 


TERMINAL 


DEPT200 


TERMINAL 


DEPT686 


TERMINAL 


MASTER 


TERMINAL 


ALTMAST 


TERMINAL 


MAI NT 


TERMINAL 


DEPT710 


TERMINAL 


DEPT720 


TERMINAL 


DEPT848 


TERMINAL 


DEPT850 


TERMINAL 


DEPT900 


TERMINAL 


TEST1 


TERMINAL 


TEST2 


) ( TRANSACT 


INVNTRY 


PASSWORD 


SUBASSY 


TERMINAL 


DEPT310 


TERMINAL 


DEPT311 


TERMINAL 


DEPT312 


TERMINAL 


DEPT410 


TERMINAL 


DEPT411 


TERMINAL 


DEPT412 


TERMINAL 


DEPT510 


TERMINAL 


DEPT511 


TERMINAL 


DEPT512 


TERMINAL 


DEPT100 


TERMINAL 


DEPT200 


TERMINAL 


DEPT686 


TERMINAL 


MASTER 


TERMINAL 


ALTMAST 


TERMINAL 


MAINT 


TERMINAL 


DEPT710 


TERMINAL 


DEPT720 


TERMINAL 


DEPT848 


TERMINAL 


DEPT850 


TERMINAL 


DEPT900 
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TERMINAL 


TEST1 


TERMINAL 


TEST2 


) ( TRANSACT 


ACCT 


PASSWORD 


LEDGER 


TERMINAL 


DEPT310 


TERMINAL 


DEPT311 


TERMINAL 


DEPT312 


TERMINAL 


DEPT410 


TERMINAL 


DEPT411 


TERMINAL 


DEPT412 


TERMINAL 


DEPT510 


TERMINAL 


DEPT511 


TERMINAL 


DEPT512 


TERMINAL 


DEPT100 


TERMINAL 


DEPT200 


TERMINAL 


DEPT686 


TERMINAL 


MASTER 


TERMINAL 


ALTMAST 


TERMINAL 


MAINT 


TERMINAL 


DEPT710 


TERMINAL 


DEPT720 


TERMINAL 


DEPT848 


TERMINAL 


DEPT850 


TERMINAL 


DEPT900 


TERMINAL 


TEST1 


TERMINAL 


TEST2 


) ( TERMINAL 


MASTER 


TRANSACT 


ACCTCHG 


TRANSACT 


ACTY 


TRANSACT 


TNL 


TRANSACT 


INQUIRY 


TRANSACT 


INQ 


TRANSACT 


ENG 


TRANSACT 


ACCT 


COMMAND 


BROADCAST 


COMMAND 


START 


COMMAND 


STOP 


COMMAND 


PSTOP 


COMMAND 


PURGE 


COMMAND 


CHANGE 


COMMAND 


DELETE 


COMMAND 


ASSIGN 


COMMAND 


CHECKPOINT 


COMMAND 


CHECKPOINT PURGE 


COMMAND 


CHECKPOINT FREEZE 


COMMAND 


DBDUMP 


COMMAND 


NRESTART 


COMMAND 


ERE START 


COMMAND 


DBRECOVERY 


COMMAND 


DBLOG 


COMMAND 


DBNOLOG 
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CHAPTER 6. STATISTICS AND ACCOUNTING 



/" 



One of the basic components of the IMS/360 control program is the 
IMS/360 system log. 

The information placed on the system log is used for many purposes, 
including statistics, accounting, restart, and data base recovery. All 
input messages received and all output messages sent are logged. All 
messages processed, the processing tiye, and the number and type of data 
base references made are recorded. This information is used to supply 
statistics about message volume by communication line and terminal. 
Error message counts as well as other data can be obtained. Accounting 
information about computer usage by application program can be derived. 

An IMS/360 utility program is placed by IMS/360 system definition in 
IMS.RESLIB and may be used for analyzing the information on the IMS/360 
system log tapes. The name of this program is DFSIST01. 



IMS/360 SYSTEM LOG UTILITY PROGRAM 



General Description 

The IMS/360 control program includes a common service routine, the 
system recorder,, designed to facilitate the placing of data on the 
system log. This information is used primarily for restart and offline 
statistical analysis (accounting etc.). The following information is 
written: 



Data 



When Written 



1. For restart: 



a. Message queue control blocks 

b. Checkpoint data 

c. Record indicating an 
Operating System/360 data 
set open or close 

d. Record indicating 
changes to a data base 

2. For both restart and statistics: 

a. Message received from 
terminal 



b. Message sent to a 
terminal or another 
program 



When they change 

When checkpoint is taken 

When an IMS/360 data set 
used for message processing 
is opened or closed 

When a data base insert, 
delete, or replace is made 



When a complete 
message is received or 
when disk block is full 

When a complete 
message is received or 
when disk block is full 



v. 
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3. For statistics only: 

a. Error segments 

b. Completion of send record 



c. Application accounting 
record 

d. IMS/360 accounting record 



Log Format 



When hardware error is 
detected receiving or 
sending to a terminal 

At completion of sending a 
message to a terminal 

When an application 
program terminates 

When system is started or 
stopped 



Records are written on the log using QSAM variable-length blocked 
records. Since different types of records are written on the log for 
different purposes, some method must be used to identify each logical 
record. 

The first byte of each logical record is called the log flag and can 
be used to identify that logical record. The user can then look at the 
first byte of each logical record, process those records with which he 
is concerned, and bypass any record (first byte of log flag) with which 
he is not concerned. 

Each logical record written on the log must be of the following 
format : 



LL 


i 

i 

» BB 
1 


! FLAG ! 
i i 


RECORD 






■VARIABLE- 
— LL 



where LL is a halfword binary number representing the total length of 
the logical record, bb is a halfword used by OS, flag is a one-byte log 
flag, and the record is of variable length. 

Each message received or sent carries control information in the form 
of the message prefix. In this prefix are message destination or 
source, date and time, and an input or output sequence number. 

When the log routine receives a request to log a message, it first 
requests a prefix builder routine. On return from the prefix builder, 
the log routine logs the message. The majority of other log records are 
completely edited by the calling program; no processing is performed by 
the logging routine. 

Log Data Set Allocation 

The IMSO procedure includes DD cards for old and new log data set 
allocations. The old log DD card name is IMSLOGR. The new log DD card 
name is IMSLOG. 
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Statistics Reports 

Statistics reports provide a means of evaluating line and terminal 
loading, traffic volumes, response times, and accounting (billing) 
information. Samples of statistics reports are shown at the end of this 
chapter. 

The flow of the system log utility program is shown in Figure 26 . 



Q 



LOG DATA SET 



EDIT PASS 1 



T 



DFSIST01 



SORT 



a 



EDIT PASS 2 



a 



DFSIST02 

MESSAGES AND STATISTICS RECORDS 
EXPLODED FROM MESSAGES 




a 



MESSAGES (IN SEQ. BY 



DFSIST03 



TRANSACTION CODE) 

DFSIST04 



REPORT WRITER 



MESSAGE SELECT 
AND DISPLAY 




MSGS 




REPORT 



Figure 26. System log utility program flow 
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The functions of Edit Pass 1 are to select from the log those records 
used by statistics and to edit the prefix of the message so that, when 
sorted, computer input message and all outputs sent as a result of that 
input are contiguous. 

The function of Edit Pass 2 is to explode from system messages the 
records to be used to produce statistics reports. 

Types of Statistics Reports 

The types of statistics reports are outlined below: 

1. Messages Queued but Not Sent - by Terminal 

• Generated message appears on log, but no record appears to 
indicate the message was sent to the terminal 

2. Line and Terminal Report 

• Shows line and terminal loading by time of day (could be used 
to determine line and terminal utilization, peak traffic 
periods, etc.) 

3. Error Report 

• Same format as 2, above 

• Input is those segments on which hardware errors were detected 

• Could be used to pinpoint lines or terminals having excessive 
error routes 

4. Messages Queued but Not Sent - by Terminal Code 

• Similar to 1, above, input 

• Sorted by transaction code rather than by terminal address 

5. Transaction Report 

• Purpose: to show loading by transaction code and by time of 
day 

• Same format as 2, above 

• Input sorted by transaction code 

6. Transaction Response Report 

• Measures time from complete receipt of input message until 
response to that message starts back to terminal 

• Percentile report shows shortest response, longest response, 
and 25th, 50th, 75th, and 95th percentile response. 

7. Application Accounting Report 

• Purpose: to provide sufficient data to allow machine charges 
to be distributed back to terminal users 

*\ • Following information contained in this report: 

Counts of all requests to Data Language/I 
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Amount of CPU task time 

Task timer is set when request for scheduling is made. (Value 
is maximum time per transaction multipled by maximum number of 
transactions.) Remaining time is requested first prior to next 
request for scheduling. (This time is actual time program 
executed, not including any wait time for data accesses.) 

All requests for services from Data Language/I,, for access to 
either messages or data bases, are counted. These counts are 
accumulated by program, by transaction code within program, and 
by priority within transaction code. 

Counts of messages processed and of "get uniques" are included 
(will be different because of "get unique" issued on which 
end-of-f ile is returned) . 

Average CPU time is total message CPU time divided by number of 
messages. Number of move calls reflects number of times block 
mover was requested to get the DBD and PSB blocks and move them 
to IMS/360 region,. 

Number of bad completion codes reflects number of times program 
terminated abnormally. 

8. IMS/360 Accounting Report 

• Shows amount of CPU time used by IMS/360 region. (This is task 
time, not including wait time.) 

• Can be used in conjunction with Application Accounting Report 
to distribute IMS/360 time to users on the basis of services 
performed. 

Operating Information 

• Reports are produced either with or without date control. 

• The program determines whether input was sorted on date. 

• A control break occurs whenever the date changes; totals are 
printed, and a new report is started. 

• If not sorted on date, should allow merging activity for a 
consecutive period (for example, one week) to produce one 
summary report. 

• To sort by date, the sort control card is: 
SORT FIELD=(5„1,CB;,A,9„ U,PD,A,13,36,,CH,A) 

• To sort disregarding date, the sort control card is: 
SORT FIELD= (5,1, CH , A,, 13 , 3 6 , CH , A) , SI ZE=XXXX 

• The other control is a LINCNT=XX parameter included in the 
execute card,. This is the only parameter expected and is 
optional. If not included, the default line count is 36. 

• Printing of the different statistics reports is not optional; 
they are all generated. 



V 
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Message Select and Copy or List 

The execution of the message select and copy or list is optional; it 
may be executed as a separate step in the same job with the statistics 
reports or may be run independent of the statistics reports. 

This utility takes output of the second edit program before it is 
sorted (when in line and terminal sequence), or after sorting (in 
transaction code sequence) , and selects messages on the basis of control 
cards read from SYSIN. Messages selected are printed and/or copied onto 
an output data set. If a DD card named IMSLOGO is included, an output 
data set will be created. If a DD card named IMSLOGP is included, 
messages selected will be printed. 

Control Cards 

All control cards begin in column 1, with a keyword identifying that 
control card. Following the keyword is a series of parameters, enclosed 
within parentheses and separated by commas. Control cards cannot be 
continued beyond column 71. Multiple control cards with the same 
keyword starting in column 1 are permitted. Within parentheses, all 
parameters are positional; missing parameters must be indicated by 
commas. 

A group of names may be indicated by terminating the parameter with 
an *. For example, INV* would cause name of INV, INVENTORY, INVA, or 
INVB to be selected. 

The name parameter "all" may be used to select all names rather than 
a specific name. 

Transaction Code Control Card 

The format of the transaction code control card is: 

TRANS CODE=(TRANSCOD,I,0) , (TRANSA,I) , (INV*, , 0) , (ALL, 1,0) 

• The first parameter is a transaction code of from one to eight 
bytes. 

• The second is I to indicate that input messages with this code are 
to be selected. 

• The third is O to indicate that output messages resulting from this 
code are to be selected. 

• The transaction code of ALL indicates selection of all transaction 
codes. 

• An asterisk within the transaction code causes only characters 
preceding the asterisk to be compared with the corresponding number 
of characters from the input transaction code to determine 
selection,. This may also be used to select groups of transaction 
codes . 

Symbolic Terminal Name Control Card 

An example of the symbolic terminal name control card is: 

SYM NAME=(TERMA,I,0) , (TERM*, I), (TERMINV, , O, ALL) 
SYM NAME=(TERMPAY, 1,0, TERM) 

• The first parameter is a symbolic terminal name of from one to eight 
bytes. 
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• The second and third parameters are I and respectively, to select 
input from and output to this symbolic terminal. 

• The O may be further qualified with another symbolic name to cause 
only output to that symbolic name which resulted from inputs from 
preceding name to be selected. If ALL is specified, all output 
resulting from the preceding name will be selected. 

Hardware Terminal Address Control Card 

The format of the hardware terminal address control card is: 

TERM ADDR=(3„A,I,,0), (42,C,,0, 21,A) , (I,ALL,I„0) 

• Selection by hardware terminal name is similar to selection by 
terminal symbolic name, except that, instead of symbolic name, line 
number and terminal address are specified. 

• The first parameter is the line number. 

• The second parameter is the terminal address. 

• The third and fourth parameters are I and for selection of input 
to and output from this terminal. 

• Output may be further qualified (similar to symbolic terminal 
output) . 

• ALL may be specified instead of terminal address or line number. 
Time Control Card 

The format of the time control card is: 
TIME=(68014, 1620, 68015,1900) 

• The first parameter is the starting date - year and day of year. 

• The second parameter is the starting time - hours and minutes. 

• The third parameter is the ending date. 

• The fourth parameter is the ending time. 

• If this card is included, only messages falling within the time slot 
are selected. 

Nonprintable Character Control Card 

The format of the nonprintable character control card is: 

NON PRINT=HEX 

• If this control card is included, nonprintable characters will be 
printed in hexadecimal on two lines, with one hexadecimal character 
above the other. 

• By default, if this card is not included, nonprintable characters 
will appear as blanks. 

System Log Utility Program JCL 

The JCL for the execution of the IMS/360 system log utility program 
is shown in Figure 27. 
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//STATS JOB 848 t NAME,MSGCLASS=I,MSGLEVEL=l,PRTY=8 

//JOBLIB l)D DSNAME=IMS.RESLIB,DISP=SHR 

//STAT EXEC PGM=DFSIST01 . 

//LOGDCB DO DSNAME=IMS.LOG,DISP=(OLD, DELETE) INCLUDE VOL AND UNIT*- NOTE 1 I 

//FDITDCB1 DD DSNAME=K£EDI Tl ,DI SP= ( NEW , PASS ) ,UNIT=SYSDA , X 

// SPACF=(CYL,(5,5) ),DCB=(RECFM=VB,BLKSIZE=1404,LRECL=1400,X««- NOTE 2l 

// BUFNO=3) 

//SYSOUT DD SYSOUT=I 

//SORT FXFC SORTD t REGION=72K 

//SYSOUT DD SYSOUT=A 

//SORTIN DD DSNAME=££EOIT1,DISP=(OLD, DELETE) 

//SORTOUT DD DSNAME=£6EDI T1S, DI SP= ( NEW, PASS ) ,UN IT=SYSDA . X 

// SPACE=(CYL,(5,5) ) ,DCB=(RECFM=VB,BLKSIZE=1404,LRECL=1400,X 

// BUFNO=3) 

//SORTWKOl DD UNI T=SYSDA , SPACE= ( CYL , ( 05 ) , ,CONT I G) 

//S0RTWK02 DD UNI T=SYSDA , SPACE= ( CYL, ( 05 ) , ,CONTI G) 

//S0RTWK03 DD UNI T=SYSDA , SPACE= ( CYL , ( 05 ) , ,C0NT I G ) 

//SORTWKOL DD UNI T=SYSDA , SPACE= ( CYL , ( 05 ) , ,CONT I G ) 

//SC1RTWK05 DD UNI T=SYSDA , SPACE= ( CYL , ( 05 ) , ,CONTI G) 

//S0RTWK06 DD UNI T=SYSDA , SPACE= < CYL , ( 05 ) , ,CONTIG ) 

//SYSIN DO * 

SORT FIELDS=(5,1,CH,A,9,4,PD,A,13,24,CH,A) ,SIZE=E200 ' 
/* 

PGM=DFSIST02. 

DSNAME=G£E0IT1S,DISP=(0LD,0ELETE) 

DSNAME=G£EDIT2,DISP=(NEW,PASS) ,UNIT=SYSDA. X 

SPACE=(CYL,(5,5) ) ,DCB= ( RECFI" = VN, BLKS 1 ZE= 1404 , LRECL = 1400 , X 

BUFN0=3) 

SYSOUT=I 

S0RTD,REGI0N=72K 

SYSOUT=I 

DSNAME=££EDIT2,DISP=( OLD, DELETE) 

DSNAME=IMS.EDIT,DISP=(NEW,KEEP) , X 

VOL = SER = 222222,UNIT=23U, X 

SPACE=(CYL, ( 1,1) ) ,DCR=(RFCFNi = VB,BLKSIZE = 1404,LRFCL = 1400) 

UNIT=SYSDA,SPACE=(CYL,(05),,C0NTIG) 

UNIT=SYSDA,SPACE=(CYL,(05),,C0NTIG) 

UNIT=SYSDA,SPACE=(CYL, (05) ,,CONTIG) 

UNIT=SYSDA,SPACE=(CYL,(05),,CONTIG) 

UNIT=SYSDA,SPACE=(CYL, (05) ,,CONTIG) 

UNIT=SYSDA,SPACE=ICYL, (05) , ,CONTIG) 



//STAT02 EXEC 

//EDITDCB1 DD 

//FDITDCB2 DD 

// 

// 

//SYSOUT DD 

//SORT EXEC 

//SYSOUT DD 

//SORTIN DD 

//SORTOUT DD 

// 

// 

//SORTWKOl DD 

//S0RTWK02 DD 

//S0RTWK03 DD 

//S0RTWK04 DD 

//S0RTWK05 DD 

//S0RTWK06 DD 

//SYSIN DD * 

SORT FIELDS=(5,1,CH,A,9,4,PD,A,13,36,CH,A) , S I ZE = E200 -•— 

//RPTWRT EXEC PGM=DFSIST03 

//EDITDCB2 DD DSNAME= IMS .EDI T , DI SP= ( OLD , KEEP ) ,UNIT=2311 . VOL = SER =222222 

//PRINTDCB DD SYSOUT=I , DCB= ( BLKSI ZE=01 33, LRECL=1 33 , RECFM=FA )* 

//SIDEX1 EXEC PGM=DFSIS104 <*- — 



NOTE 3 



//IMSLOGI DD DSNAME=IMS.EDlT,DISP=(0LD,DELFTE),UNIT = 2ni,Vi)L=SER = 22222? 

//IMSLOGP DD SYSOUT=I , DCB= ( BLKS I Z E = 1 33 , LRFCL = 133 , RFCFM = FB A ) >4 

//SYSIN DD * 

TRANS CODE=( ALL, I ,0) *4 ■ 

NGN PRINT=HFX 



NOTE 
NOTE 



NOTE 4 



NOTE 6 



Figure 27,. JCL for the system log utility program 



Notes : 



1. Concatenate if necessary other volumes and units under DD cards 
if multiple data sets are to be processed. 
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2. BLKSIZE and LRECL may be changed here and in subsequent steps. 
LRECL must be at least as large as the largest buffers used for 
message queues - 

3. Sort control card shown is for sorting by data and therefore 
producing reports under date control. To sort disregarding date 
and subsequently not control on date when producing reports, the 
sort control card is: 



SORT FIELDS = (5,1, CH, A, 13, 36, CH, A) , SIZE=XXXX 

4. Output may be blocked or unblocked; all I/O for statistics 
program is done using QSAM, with QSAM acquiring the buffers. 

5. See preceding section, titled "Message Select and Copy or List", 
as this is a variable portion of the JCL where the user has 
different options. 

6. See preceding section titled "Transaction Code Control Card", as 
this is a variable portion of the JCL. 



STATISTICS REPORTS EXAMPLES 

Following is a list of types of statistics reports available to the 
user of IMS/360. Examples follow on subsequent pages. 

• Messages queued but not sent (by terminal) 

• Line and terminal 

• Error 

• Messages queued but not sent (by transaction code) 

• Transaction 

• Transaction response 

• Application accounting 

• IMS accounting 

• Messages 

MESSAGES — OUEUED BUT NOT SENT A T F <V/29/6fl P k G- E 

TOTAL 
TRM MESSAGES 

Tl 360689 9 



r 

I 



V 
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LINE TRM 



P/S 



LINE A N D" T E R M I N A L R E P C R T 

TOTAL TOTAL AVG HOURLY 



MESSAGES 



CHARACTERS 



DATE 05/27/68 
DISTRIBUTION 



PAGE 



SIZE 00-07 C7-08 08-09 09-10 10-11 11-12 12-13 13-14 14-15 15-16 16-17 17-18 18-19 19-24 " 



0C2 A 

♦MASTER S 



*P057A 



♦P682A 



67 



50 
1 



2,229 



33 



W617 



17 



31 



14 



32 
17 



18 





12 





10 




17 



17 



*P682C 
TRM 


S 
S 


I 
70 


17 
2,280 


17 
32 



























31 



7 



14 



9 


1 
9 
















TOTALS 
003 A 


P 


50 


1,617 


32 




















18 


8 


12 


10 


2 













♦ 2743A2 


S 

R 


73 

104 


2i657 
2,487 


36 
"23 


























19 
27 


34 
39 


5 
16 


14 
22 


1 

















005 A 


♦ P663 


S 
P 


190 
?49 


1,522 
5,508 


39 
22 


























38 
49 


64 
82 


58 
77 


30 
41 




















009 A 
♦ P0 57A 


S 


46 


1>785 


38 




















13 


7 


7 


19 


















R 


59 


1,397 


23 




















16 


12 


10 


21 

















SYSTEM S 
TOTALS P 



669 
PA6 



27,619 
?3,323 



41 
27 



147 167 



168 



230 



198 
261 



147 
185 



10 



to 

^1 



00 



F R R P 



R F P R T 



O A T E 03/31/67 



PAGE 



LINE TRM 


*/S 


TOTAL 
MESSAGFS 


001 A0 






T15CAS1A 


S 
R 


14 

14 


002 AO 






T15CAS2A 


S 
R 


14 
14 


T15CAS2B 


S 
R 


14 
14 


TRM 
TOTALS 


S 

R 


28 
28 


003 AO 






T15CAS3A 


S 

R 


14 
14 


T15CAS3B 


S 

R 


14 
14 


■T15CAS3C 


S 

R 


14 
14 


TRM 
TOTALS 


S 

R 


42 
42 


BO 






T15CAS30 


S 

R 


14 
14 


T15CAS3F 


S 
R 


14 
14 


T15CAS3F 


S 
P 


14 
14 


TOM 

TOTALS 


S 

R 


42 
42 


LINF 
TOTALS 


s 

R 


84 
84 


SYSTFM 
TOTALS 


S 
P 


126 
126 



TOTAL AVG HOURLY DIST9 IRIJTION 

CHARACTERS SIZE 00-07 07-08 08-09 09-10 1^-11 11-1? 12-13 13-14 14-15 15-16 16-17 17-18 i°-n to.n 



700 

700 



700 
700 



700 
700 



1,400 
1,400 



700 
700 



700 
700 



700 
700 



2,100 
2,100 



700 
700 



700 
700 



700 

700 



2,100 
?tlOO 



4,20-> 

4,200 



6, V<0 
6,3"0 



SO 

sn 



'50 
SO 



50 
50 



50 
50 



50 
50 



50 

50 



SO 
50 



SO 
50 



50 
50 



50 
50 



50 
SO 



50 
50 



50 

50 



50 
50 



MESSAGES — GUEUED BUT NOT SENT DATE 05/31/67 PAGE 

TRANSACTION TOTAL 

CODE MESSAGES 

T19QCS2A 9 

T19QCAPR 9 



\ 



219 



to 

O 


TRANSACT ICN 


TRANS 
TOTAL 


ACTION 
TOTAL 


REP 
AVG 





._-._ 




HOURLY 




" D A t E" 05/27/68 "'" 
DISTRIBUTION 






"PAG E I 




COOE R/S 

/CKECKPCf" '~n~ '" 
/ENC. R 


MESSAOFS 

-""■■]_' 
1 


CHARACTERS 

10 


SIZE 
--- 

10 


00 


-07 C7- 




•C8 08- 



-09 09- 
___ 




10 

~o" 




10-11 





11- 


•12 




12- 


-13 13-14 14- 

1 


-15 15- 

""6~ 



-16 16- 




•17 17-18 18-19 19- 


■24 




10 









/START S 
R_ 

/STOP S 
R 


54 

7 
4 


1,396 
619 

ie? 

72 


25 

20_ 

26 
18 





...0_ 








._ p_ 














p 






_......_9_ 





— 




._P._ 





— 


35 5 
.1.7 3 

3 
2 


8 
6 

2 
1 


6 
4 

2 
1 




_. 







J) 







/TFST. P 

PA " r"" "" 

PA /CZNC R 


1 

i 
1 


11 

_. 

15 


11 

8~ 
15 










___ 





___ 










-— 




~~o" 




--- 


a i 

1 



........ 









_cf _ _ 























PA S 

R 

PB S 

P 


23 

.......ML... 

4 

7 


1,121 
_ 4,110 

276 
919 


48 
100 

69 
131 


— 




__p 






















p_ 





___ 










.._ 


4 7 
10 1J 

2 
4 


3 

_8 

2 
3 


9 

.A?. ... 


































PC s 

p. __. 

PD S 
R 


5 
5 


2,156 
2,421 

219 
116 


24 

27_ 

43 
23 


— - 




p_ 







__p 







_p_._ 












_0_ 





.__... 




__.p_ 







21 32 
_22 3 2 

5 
5 


17 





18 
._1J_..- 

























PI S 

_ P 

PI 123456 (■' 


11 
114 

1 


395 
l_f.50_B_ 

13 


35 
..13, 

13 






._p 












__0 






_p 





0__ 




._._.. 




._p... 




— 


2 2 
.31 3« 

1 


4 
28 




3 

21 .._._ 






















PK <: 
^ P 


IS 
16 


4CR 
336 


27 
21 

































4 1 
4 1 


6 
6 


4 
5 











SYSTEM 
TCTAI S 






27,619 
23,323 



41 
27 



147 

168 



167 

230 



198 
261 



147 

185 



10 
2 



f~\ 



\ 



r p a »j s a c t i r n 



REPORT 



HATE 05/27/68 



TYPE 
TRANSACT TCN 


THTAI 
>E<:pfiNS(; < " 


! CNOFS T 

(■.Fsr^Nsr 


95* 


(■•fspcns» : 


5 n % 
RESPONSE" 


25? 

"rTFSPONST '" 


SHORTEST 
RESPONSE" 





PA 


,) i 


= 1 -6S 


o«.?s 


<U. OS 


C1.BS_ 


qi.es .._ 


01. IS 




PP 


'i 


c\. c >% 


01. °S 


01. HS 


01. 7S 


01. *s 


01. 4S 




PC 


t>* 


i< u 43.7s 


C2.0S 


•U . ?s 


01. IS 


01. is 


01. OS 




_ _pn 


'' . .. 


C1..2S 


_._oi_._?_s 


.'11..2S._ 


qi.._is_ 


01. is 


01. IS 





pi 


11 


• 2.7S 


22. 7S 


01.2S 


01. 2S 


01. IS 


01. IS 




PK 


lh 


C2.2S 


02. ?S 


01. 2S 


01. IS 


01. IS 


01. IS 




F" 


-■ 


C1.2S 


01. 2S 


01. IS 


oi.is "' "' 


01. IS 


01. IS 




PN 


1 


CI. is 

01. IS 


01.13 


oi. is 


CI. IS 
01. IS 


01. IS 

01. IS 


01. IS 




PC 


1 


01. IS 


01. is 


01. IS 




PP 


7 


C1.3S 


' 01. 3 S 


01. is" 


01. IS 


"oi.is 


01. IS 




PO 


33 


C2.0S 


01. 9S 


01. 7S 


01. IS 


01. IS 


01. OS 




PR 


3 


Ag.vi 


48. 4S 


01. 6S 


01. 6S 


01. 6S 


01. 6S 




" PS — " 


'271 " 


24. 7S~ 


02.5S 


~oi72s'~ 


" ' ouis " 


oi. is" 


01. OS 




PV 


'}«) 


C?.<?S 


02. 7S 


01. 2S 


01. IS 


01. IS 


01. OS 




PW 


t 


01. 4S 


01. 4S 


01. 2S 


01. IS 


01. IS 


01. IS 




PX~ 


~ i'V" 


n?.7S 


02. 7 S 


Ol.flS 


01. 7S 


01. 7S 


01. 2S 





to 

to 



to 
to 



H p p" l t c"A f I N "A C'CO II NT I NG " R~E PORT 
PROGRAM TRANSACTICN MESSAGE COUNTS DATA 



DATE 05/27/68 



NAME 

"iTfiie'Mboi pk 
PS 



NdME 



PR I OTY 



BASE 



C? 
CI 



16 
?72 



GU 
— jy 
■514 



GN ISRT 



COUNTS MOVE BAD 



18 
430 



GU 

16 




GN 

"~0" 




GNP 




GHU 
29 8 



GHN GHNP ISRT DLET REPL CALL 



14 
112 



14 
155 



CC 







PAGE 


1 


TOT MESS 


AVR 


CPU TIME 


TIME 


00.4 S 


'T>'~02~T 


08. 7S 


0.030S 



PX 



CI 



15 



******** ** 3p3 
U81PK002 PA C5 38 



30 

5«)'6 

75 



25 

473 

174 199 




16 







":J'iT 

15 



U818M003 P8 C4 7 14 63 84 57 

"PC C4 89 178 ~ ""c 131 "~ 0~~ 91 o" 

♦***♦♦** »« Q6 192 63 215 143 



37 

163 

84 





i69~ 

3 



00.4S 0.029S 
"69.6S~~0.'030S" 
13. 2S 0.333S 




22 
22 



48 

"e"2 

130 



01. OS 0.145S 
03.3S 0T036S 
04. 4S 0.044S 



U818M004 PI 

__. 
pr 



Cl 114 

cl " " 1 

ci 1 



227 
- -■ 2 ■ 

?. 



30 3 

2 

2 



111 
------ 





103 
_. ...^ 







o —"-r 







6 6" 

o o 



o o 

o o 



03. OS 
00. OS 
00. OS 



0.025S 



0.048S 
0.032S 



PP C3 49 *;8 

__ -_ -^ -^ . 

pv ci 4i e? 



140 121 138 
-537 51 o" 

86 41 





40T 6 







6 ~o 







16 





******** ** p'-j-f «=; 1 ? 

U8 1RM005 " PM "" "C2" 3 " 6 

PC Cl 3* 1-6 



******** ** 3(. 
U81flV006 PC Cl 5 



7? 
10 



C 1070 324 241 407 

C" 6""" ' 3~ " " "0 0" "0 "0 

58 3 2 Q 11 0^ 16 

G 64 35 11 C 

8 "O " 2 0' " " O" 4 C 



01. 8S 
6778S 
01. IS 



0.035S 
~b7l47~~ 
0.026S 



13. 8S 
"00. OS 
00. 9S 



0.051S 
0.014S 
0.027S 



16 
2 



00. 9S 
00. IS 



0.026S 
b.b32S 



PK 
PU 



Cl 
Cl 



]4 





o_ 

? 



******** ** 15 ;>* 2 3 ?. 

SYSTEM TDTAIS 7'..5 1 '♦ ? 5 23 7 2044 342 24 1 407 512 

» ff.'U I CATFS TDTAL SH1U N IM lO^'S 

9 [NOICATPS fOTAL SHOWN PI lO.OCO'S 





2_ 

6 

2 86 





q o_ 

2 

5 3 20 



10. OS 3.216S 

0.2S 0.028S 

10. 4S 0.667S 

52. 5S 0.067S" 



I M S 



ACCOUNTING RFPORT 



A t F 05/27/68 



PAGE 



I M S CPU T IMf : FOR OAV 05/27/68 IS -01" 11.4S OR 71. 4S 

[ M S CPU TOTAl TCP IS 01M 11. 4S OR 71. 4S 



223 



•p 



M MESSAGES 

to 

INPUT Stt=C01 LEN=117 *Al RF=Cl CF-OC TYPE=lObC LINE=00l T£RM=AO SEll=001 NAM£=TEST 01 DAt£=67.240 T lME=01«0l.0lCS-IN , -OUT* 

*,STAT,CGlCG t 0C10C* 

JLTPUT SEG = CC1 LEN=il7 *Al RF=C3 CF=0C TYPE=105C LINE=001 TEkM=A0 SEQ=00l NAME=TEST 01 0ATE=67.240 T IME=0l.01.01 -IN.CS-OUT* 

*,SIAT,C02C0tC0200* 
INPUT TRANSACJICN LINE TERM Sfcli SYMBOLIC OUTPUT LINE TERM SEQ SYYBOLIC 

REUX CCCE NL ADOR NC ADDRESS DATE TIME PREFIX NC AODR NO ADDRESS DATE TIME 

Al OCi AO OOOOl TEST 01 67.24C Ol.01.01 OOi AO 81984 TEST 01 67.241 Ol.OO.Ol 

INPUT SEG=CC1 i-tN=117 */CAnCE|_ CF=ot TYPE=2740 LI NE=C02 . TtRM=B0 SEQ=002 NAME=T£ST 03 DATE=67. 241 TlME^' .01 .41CAnCEl 00705* 

*t t 0070£, 0C7C6* 
INPUT IRANSAC1ICN LINE TERM SEC! SYMBULIC 
PfcfcflX CCCE NC AODR NC ADDRESS DATE TIME 

yCANCtL C02 BO 00002 TEST 03 67.241 0l.0l.41 

INPUT StG=CCl LEN=117 *B1 RF*=0i CF=0d TYPE=2740 LlNE=002 TERM=BO SEQ=001 NA*E=TEST 02 DATE=67.240 TlME=Ol.0l .21FS-IN, -OUT* 

*,NUST t 003C0,0030C* 
INPUT ShG=CC2 LEI\=117 *B1 RF=01 CF=00 TYPE=2740 LINfc=0C2 TEKM=e0 SEQ=001 NANE=TEST 02 DATE=67.240 TIME=01. 01.211 S-IN f -OUT* 

*,MJST»C04C0f00400* 
INPUT StG=CC3 LEN=117 *B1 RF-01 CF=04 TYFE=2740 LINE=002 TERM=B0 SEQ=001 NAME=TEST-02 DATE=67.24l TIME=01 . 01 .21LS-IN.DAY-CH* 

*,NCST»C05CU,CG5GO* 
OUTPUT StG=CCl LcN=117 *Bl RF^03 CF=Od TYPE=2740 LINE=002 TERM=B0 SEQ=0C1 NAME=TEST 02 DATE=67.24l TIME=01 . 01 .21 -IN f FS-OUT* 

* t NOSI t 00600f00600* 
CUTPUT SEG=CC2 LEN=117 *Bl KF=03 CF-04 TYPE=2740 L1NE=002 TERM=BO SEQ=001 NAME=TEST 02 DATE=67.24l TIME=01. 01 .21 -IN t LS-OUT* 

*,NOST,0O7CO»C07OO* 
INPUT IhANSACIICN LINt TERM StC SYMBOLIC OUTPUT LINE TERM SEQ SYYBOLIC 

REFIX CCCt NO ACOR NC ADDRESS DATE TIME PREFIX NO AODR NO ADDRESS- DATE TIME 

Bl C02 BO 00001 TEST 02 67.241 01«01>21 THIS OUTPUT MESSAGE WAS NOT SENT 

INPUT SEG = CC1 LEN=117 *Cl RF=Ci CF=OC TYPE = l030 LINt=003 TtRM=CO SEQ=001 NAME=TtST 04 DATE=67.24l T ImE = 01» 01 .41 1 NPUT ONLY * 

* tcoacctccuoo* 

INPUI TRANSACTICN LINE TERM SEG SYMBULIC 

PREFIX CCCE NC ADDR NC ADuRtSS DATE TIME 

CI CC3 CO C0001 TEST 04 67.2*1 01.01.41 

CUPLT :>tG = CCi LtN=124 *C2 «F = C3 CF=oC lypE=1050 LINE=003 TbRM = DO SEw=001 NAME=TEST 05 DATE=67.24l T lMfc=0l. 01 .5lOuTPUT ONLY * 

* ,C09C0t0090N£XT LIN* 



CHAPTER 7. STATUS CODES AND ERROR CONDITIONS 



PROGRAM SPECIFICATION BLOCK GENERATION - PSBGEN ERROR CONDITIONS 



Erroneous Control 
Card 



Error Message 



PCB 



PCB 



PCB 



PCB 



PCB 



PCB 



— — PCB010 PCB type parameter 

missing or invalid 

PCB020 PCB LTERM parameter 

not specified for TP PCB 

- — PCB030 DBDNAME parameter not 

specified for DB PCB 

PCB040 KEYLEN parameter not 

specified for DB PCB 

PCB050 PROCOPT parameter not 

specified for DB PCB 

PCB060 DBDNAME specified for 

TP PCB 



PCB 



PCB070 PROCOPT specified for 

TP PCB 



PCB 
PCB 



PCB080 KEYLEN operand for TP PCB 

PCB090 LTERM operand specified 

for DB PCB 



PCB 



PCB100 Invalid processing option 

in PCB 



PCB 



SENSEG 



PCB110 TP PCB must occur before 

any DB PCB's 

SEG010 Segment name parameter 

invalid 



SENSEG 



SEG020 Too many SENSEG cards; 

255 maximum 



SENSEG 



SEG030 SENSEG invalid for TP 

PCB*S 



SENSEG 



SEG040 Parent name parameter 

invalid 



SENSEG 



SENSEG 



SEG050 Parent segment not 

predefined 

SEG060 Parent name parameter 

omitted or invalid 



SENSEG 



SEG070 Duplicate segment 

name 



225 



PSBGEN 

PSBGEN 
PSBGEN 
PSBGEN 

PSBGEN 

PSBGEN 



PSB010 PCB in error, generation 

terminated 

PSB020 PSBNAME not specified 

PSB030 Invalid language operand 

PSB040 No sensitive segments 

for DB PCB 

PSB050 PSB name must begin with 

alpha character 

PSB099 System error, generation 

terminated 



DATA BASE DESCRIPTION GENERATION - DBDGEN ERROR CONDITIONS 



Erroneous Control 
Card 

DBD 

DBD 

DBD 
DBD 

DMAN 

DMAN 

DMAN 

DMAN 
DMAN 

DMAN 

DMAN 

DMAN 

DMAN 

DMAN 
DMAN 



Error Messages 

DBD010 Incorrect or missing 

access method 

DBD020 DBD name parameter 

not specified 

DBD030 Too many DBD cards 

DBD040 DBD name must 

begin with alphabetic characters 

DMAN010 Incorrect device 

specification 

DMAN020 Incorrect access 

specification 

DMAN030- — DD2 parameter invalid 

with ACCESS equal to ISAM 

:DMAN040 Too many DMAN cards 

DMAN050 BLKFACT specified but 

no LRECL 

DMAN060 LRECL specified but no 

BLKFACT operand 

DMAN070 LRECL BLKFACT greater 

than track length 

DMAN080 Missing DLIOF operand 

with access equal to ISAM 

DMAN090 DLIOF is present or DD2 

is missing with access equal to SAM 

DMAN100 DD1 operand omitted 

DMAN110 DD1 and DD2 have same 

DD names for HSAM 
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DMAN 



DMAN120 DD1/DLI0F duplicate 

DD names for HISAM 



SEGM 



SEGM 



SEGM 



SEGM 



SEGM 



SEGM 



SEGM10 Segment name not 

specified 

SEGM20 Segment bytes parameter 

not specified 

SEGM30 Segment frequency 

parameter not specified 

SEGMUO Root segment parent 

must equal zero 

SEGM50 Parent operand not 

specified for dependent segment 

— — SEGM60 Too many SEGM cards; 

255 maximum 



SEGM 



SEGM70 Segment length greater 

than DASD track 



SEGM 



SEGM80- — Segment length specified 

as zero 



SEGM 



SEGM90 Segment frequency of 

zero invalid 



SEGM 
SEGM 

FLD 



SEGM100 Duplicate segment names 

SEGM110 Segment length greater than 

specified LRECL 

FLD010 Field name parameter 

not specified or invalid (that is, 
more than 8 characters) 



FLD 



FLD 



FLD040 Type parameter not 

specified or invalid 

— -FLD050 FLDK card not first 

after SEGM card 



FLD 

FLD 

FLD 
FLD 

FLD 
FLD 



FLD060 Too many FLD or FLDK 

cards specified 

FLD070 Field length extends 

beyond segment end 

FLD080 First byte of segment is 1 

FLD100 Duplicate field name 

in segment 

FLD110 Bytes parameter invalid 

(that is, a nonnumeric field, or 
less, or greater than 256) 

FLD120 Start parameter is invalid. 

(1 - if the size of the field is greater 
than the size of the segment that it is in 
2 - size of the start parameter is a 
nonnumeric field) 
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FLD 

FLDK 

DBDGEN 

DBDGEN 

DBDGEN 
DBDGEN 
DBDGEN 
DBDGEN 
DBDGEN 

DBDGEN 
FINISH 



FLD130 Specified fields in segment 

exceed 255 

FLDK010 Key field specified 

inappropriately 

DGEN010 Segment X parent 

Y not found 

DGEN020 Invalid number of DMAN 

cards for access method specified 

— '-DGEN030 DAM not supported 

DGENOUO No segments for DMAN X 

DGEN050 DAM not supported 

DGEN060 Errors in this DBD 

DGEN070 Too many levels in data 

base segment hierarchy 

DGEN080 First segment in 

secondary data set group lower than 
level two 

FINI10 NO successful DBD* S 

in this run 



SYSTEM DEFINITION ERROR CONDITIONS 

Stage 1 Error Messages: 

GO 00 IMSCTRL MUST BE 1ST MACRO ; IMSGEN MUST BE LAST 

**** ENTERED DDNAME IS A DUPLICATE - name 

**** ENTERED DDNAME IS RESERVED - name 

The following ddnames are reserved ddnames: IMSLOG, IMS, 
IMSCSP,, IMSLOGR, SYSUDUMP, SYSABEND, JOBLIB, STEPLIB. Note 
that this list may be modified by OS/360 system changes. 

IMSCTRL 

GO 01 MORE THAN ONE IMSCTRL MACRO SPECIFIED 

GO 02 SYSTEM OPERAND OMITTED OR INVALID 

The generation type must be BATCH or ALL. 
GO 03 MAXREGN OPERAND OMITTED OR INVALID 

Range is 1 - 255. 
GOO 4 MAXIO OPERAND INVALID 

Range is 1 - 255. 
GO 05 MSGBUFF OPERAND OMITTED OR INVALID 

Range is 1 - 255. 
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GO 06 OCENDA OPERAND OMITTED OR INVALID 

Value range is WA to Z9. 
GO 07 CKPT LOG FREQ OPERAND IS INVALID 
Range is 500 - 36863. 



228.1 



228.2 



G008 



ONE OR MORE OF THE SVC OPERANDS ARE INVALID ALL SVC OPERANDS 
MUST BE MUTUALLY EXCLUSIVE SVC OPERAND RANGE IS 128 - 255 



APPLCTN 

G101 APPLCTN SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

G102 PSB OPERAND OMITTED OR INVALID 

Cannot exceed 8 characters. 
G103 PGMTYPE OPERAND OMITTED OR INVALID 
G104 APPLCTN SPECIFICATION LIMIT EXCEEDED 

No more than 255 applications can be specified,. 

G105 PSB - name - PREVIOUSLY SPECIFIED 

G106 PSB OPERAND MUST BEGIN WITH ALPHA - name 

DATABASE 

G201 DATABASE SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL 

G202 DATABASE SPECIFICATION NOT IN APPLCTN GROUP 

Data base specification must be preceded by an application 
specification. 

G203 DBD OPERAND OMITTED OR INVALID 

G204 INTENT OPERAND OMITTED OR INVALID 

G205 DBD OPERAND MUST BEGIN WITH ALPHA - name 

G206 DATABASE SPECIFICATION LIMIT EXCEEDED 

Maximum number of data bases is 255. 

G207 LOG OPERAND IS INVALID - name 

TRANSACT 

G301 TRANSACT SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

G302 TRANSACT SPECIFICATION NOT IN APPLCTN GROUP 
Transact must be preceded by an application. 

G303 CODE OPERAND OMITTED OR INVALID 
Cannot exceed 8 characters. 

G304 PRTY OPERAND OMITTED OR INVALID 

G305 PROCLIM OPERAND OMITTED OR INVALID 

G306 MSGTYPE OPERAND OMITTED OR INVALID 
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G307 

G308 
G309 
G310 
G311 
G312 

LINEGRP 
G401 

G402 

GU03 

GU04 

GU05 
GU06 
G407 
LINE 
G501 

G502 
G503 
G504 

G505 
G506 

G507 

SOBPOOL 
G610 



TRANSACT SPECIFICATION LIMIT EXCEEDED 

Maximum is 255. 

CODE OPERAND MUST BEGIN WITH ALPHA - name 

TRANSACT CODE - name - PREVIOUSLY SPECIFIED 

INQUIRY OPERAND IS INVALID - code 

TRANSACTION CODE - code - DEFINED AS AN LTERM warning message 

PRIORITY VALUES FOR TRANSACTION CODES USED BY BATCH PROGRAMS 
MUST BE NULL; VALUES ARE RESET TO PRTY= (0,0, limit count) 

LINEGRP SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

UNITYPE OPERAND OMITTED OR INVALID 

Must be one of the IMS/36 0-supported devices (1050, 2260, or 
27U0). 

DDNAME OPERAND OMITTED OR INVALID 

Maximum of 8 characters. 

LINEGRP SPECIFICATION LIMIT EXCEEDED 

Maximum number is 255. 

LINEGRP DDNAME - name - PREVIOUSLY SPECIFIED 

DDNAME OPERAND MUST BEGIN WITH ALPHA - name 

FEAT OPERAND OMITTED OR INVALID 

LINE SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

LINE SPECIFICATION CANNOT OCCUR BEFORE LINEGRP 

ADDR OPERAND OMITTED OR INVALID 

LINEGRP FEAT SPECIFICATION — feat 

IS NOT COMPATIBLE WITH LINE SPECIFICATION ~ feat 

FEAT OPERAND OMITTED OR INVALID 

LINE SPECIFICATION LIMIT EXCEEDED 

Maximum number is 255. 

DIAL ZONE CODE LIMIT EXCEEDED 

Range limits 0-15. 



SUBPOOL SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 



/" 



V 



S 
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G611 



SUBPOOL SPECIFICATION CANNOT PRECEDE POOL 



G612 



TERMINAL/SOBPOOL SPECIFICATION LIMIT EXCEEDED 



\ 



G613 

TERMINAL 
G601 

G602 
G603 
G604 

G605 

G606 

POOL 
G510 

G511 
G512 
G513 
G514 
G515 
NAME 
G701 

G702 
G703 

G70U 
G705 
G706 
G707 



TELNO OPERAND OMITTED OR INVALID 
Number cannot exceed 16 digits. 

TERMINAL SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

ADDR OPERAND OMITTED OR INVALID 

TERMINAL SPECIFICATION CANNOT PRECEDE LINE MACRO 

TERMINAL SPECIFICATION LIMIT EXCEEDED 

Maximum number is 255. 

UNIT OPERAND OMITTED OR INVALID 

Unit operand is mandatory for 2260 line groups. 

UNIT OPERAND SEQUENCE ERROR 

The 2848 unit addresses must appear in ascending sequence 
within a line. 

POOL SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

POOL SPECIFICATION CANNOT OCCUR BEFORE LINEGRP 

POOL SPECIFICATION INVALID FOR NONSWITCH LINEGRP 

FEAT OPERAND INVALID - feat 

LINE/POOL SPECIFICATION LIMIT EXCEEDED 

DIAL ZONE CODE LIMIT EXCEEDED 

NAME SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

NAME SPECIFICATION MUST FOLLOW TERMINAL/SUBPOOL 

LTERM NAME OPERAND OMITTED OR INVALID 

Maximum of 8 characters. 

LTERM - name - PREVIOUSLY SPECIFIED 

NAME SPECIFICATION LIMIT EXCEEDED 

NAME OPERAND MUST BEGIN WITH ALPHA - name 

WTOR PREDEFINED NAME - RESERVED FOR SYSTEM USE 
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G708 



COMPT OPERAND IS INVALID - compt 



Component value must be 0, 1, 2, or 3 and is mandatory for 
1050 line groups. 



G709 LTERM - name - DEFINED AS A TRANSACTION CODE 

MASTTERM 

G801 MASTTERM SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

G802 MULTIPLE MASTER TERMINAL SPECIFICATIONS 

G803 MASTER TERMINAL NAME OMITTED OR INVALID 

Maximum of 8 characters. 

G804 NAME OPERAND MUST BEGIN WITH ALPHA - name 

G805 MASTER TERMINAL CANNOT BE ON A SWITCHED LINE LINEGRP - n LINE 
- N TERMINAL - n NAME - n 

G806 MASTER TERMINAL NAME NOT DEFINED 

Master terminal name must be defined on a previously 
encountered NAME macro. 

G807 THE NAME SELECTED FOR MASTER MUST APPEAR AS THE 1ST NAME FOR 
TERMINAL - x of LINE - n IN LINEGRP - n 

G808 MASTER TERMINAL MUST BE FIRST TERMINAL ON LINE X 

MSGQUEUE 

G801 MSGQUEUE SPECIFICATION IS NOT COMPATIBLE WITH GENTYPE 
SPECIFICATION (BATCH) IN IMSCTRL MACRO 

G802 MULTIPLE MSGQUEUE SPECIFICATIONS 

G803 QCRIN OPERAND OMITTED OR INVALID 

G804 MSGIN OPERAND OMITTED OR INVALID 

G805 QCROUT OPERAND SPECIFICATION IS INVALID 

G806 MSGOUT OPERAND SPECIFICATION IS INVALID 

G807 QCRIN DDNAME SUBFIELD IS INVALID 

Must be 1 - 8 characters. 
G808 QCRIN DDNAME OPERAND MUST BE ALPHA - name 

First character must be alpha. 
G809 QCRIN DSNAME SUBFIELD IS INVALID 

Must be 1 - 16 characters. 
G810 QCRIN DSNAME OPERAND MUST BE ALPHA - name 

First character must be alpha. 



.y 
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G811 



QCRIN UNIT SUBFIELD IS INVALID 



Must be 2311, 2314, 2301, 2303. 



G812 



QCRIN SERIAL SUBFIELD IS INVALID 



Must be 1 - 6 characters. 
G813 through G818 same as G807 - G812 except for MSGIN operands. 
G819 through G824 same as G807 - G812 except for QCROUT operands 
G825 through G830 same as G807 - G812 except for MSGOUT operands 
G831 REUSE OPERAND OMITTED OR INVALID - value 
RESLIB , MACLIB 

G901 NO MORE THAN ONE RESLIB CAN BE SPECIFIED 
G902 PDS OPERAND OMITTED OR INVALID 
G903 VOLNO OPERAND OMITTED OR INVALID 
G904 UNIT OPERAND OMITTED OR INVALID 
G905 PDS OPERAND MUST BEGIN WITH ALPHA - name 
PSJBLIB, DBDLIB , PROCLIB , PGMLIB 
G901 - G905 SAME AS FOR RESLIB AND MACLIB 

G906 IF VOLNO OR UNIT IS ENTERED BOTH MUST BE ENTERED 
IMSGEN 

GO 30 NO APPLCTN SPECIFICATIONS 
G031 NO LINEGRP SPECIFICATIONS 
GO 3 2 NO LINE SPECIFICATIONS FOR LINEGRP - n 
GO 33 NO TERMINALS ON LINE - n 

G034 MASTER TERMINAL CANNOT BE ON A SWITCHED LINE 
G035 NO MASTER TERMINAL SPECIFICATION 
GO 36 TERMINAL - n HAS NO LOGICAL NAME SPECIFICATION 
GO 37 MSGQUEUE DATA SETS NOT SPECIFIED 
G038 RESLIB NOT SPECIFIED 
G039 UTISDS OPERAND OF IMSGEN OMITTED OR INVALID 

Must be 1 - 16 characters. 

GO 40 UNSUCCESSFUL IMS/360 SYSTEM DEFINITION 

Occurs whenever any error occurs during definition. 
Definition is terminated. 
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IMSGEN WARNING MESSAGES 

DDNAME CHECK TABLE FULL 



G041 



DLI PROCEDURE IS NOT INCLUDED; 
REQUIRED LIBRARIES ARE NOT SPECIFIED 



GO 4 2 IMSCOBOL AND IMSPLI PROCEDURES ARE NOT INCLUDED; 
REQUIRED LIBRARIES ARE NOT SPECIFIED 

GO U 3 IMSCOBGO AND DLIPLIGO PROCS ARE NOT INCLUDED; REQUIRED 
LIBRARIES ARE NOT SPECIFIED 

GO 4 4 PSBGEN PROCEDURE IS NOT INCLUDED; REQUIRED LIBRARIES ARE NOT 
SPECIFIED 

GO 45 DBDGEN PROCEDURE IS NOT INCLUDED; REQUIRED LIBRARIES ARE NOT 
SPECIFIED 

GO 4 6 IMS ONLINE PROCEDURES ARE NOT INCLUDED; REQUIRED LIBRARIES 
ARE NOT SPECIFIED 

GO 47 NO DATABASE SPECIFICATIONS FOR PSB - name 

G048 NO TRANSACT SPECIFICATIONS FOR PSB - name 

GO 4 9 THE TERMINAL SELECTED FOR MASTER SHOULD HAVE MORE THAN ONE 
LOGICAL NAME ASSIGNED TO IT 

IMSTEST 

GO 90 IMSTEST MACRO MUST PRECEDE IMSCTRL MACRO 

GO 91 CODE OPERAND OMITTED 

GO 9 2 CODE OPERAND MUST BE ONLY ONE CHARACTER 

G093 CODE OPERAND IS INVALID 

GO 9 4 ONE OR MORE OF THE SPECIFIED LIBRARIES ARE OMITTED OR INVALID 
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DATA LANGDAGE/I STATUS CODES 



DATA BASE_CALLS 


USJLTALLS 




STATUS 
CODE 


3U 
&HJJ 
X 


SN 
GHN 


GNP 
GHNP 


DLET 

REPL 

X 


ISRT 
(1 PAD) 


ISRT 

(ADD) 

X 


Gil 
X 


GJi 

X 


ISRT 
X 


CALL 
C0J1P1EIED 


ERROR 
IN CALL 


I/O OR 
SYST. ERROR 


INSCRIPTION 


AB 


x! x 


x 




X 




SEGMENT I/O AREA REQUIRED, NONE SPECIFIED IN CrtLL 


AC 


X 


x 1 X 


X 


X 






--- 




X 




HIERARCHICAL ERROR IN SSA'S 


AD 




; 












X 




INVALID FUNCTION PARAMETER 


AE 







X • 







..... 


— 


— ■ 




X 




ROOT SEGMENT SPECIFIED BY THIS CALL, NOT ALLOWED 
GNP CALLS 


AF 




! x 




X 




DLET OR REPL CALLS CANNOT HAVE SSA'S SPECIFIED 


AG 


X 




X 


X 










X 




FIRST SSA SPECIFIED IS NOT LEVEL 1 


AH 


X 




X 


X 










X 




CALL REQUIRES SSA'S. NONE PROVIDED 


AI 


X 


x: x x 


X 


X 












X 


DATA MANAGEMENT OPEN ERROR 


AJ 


X 


X| X 


X 


X 










X 




INVALID SSA QUALIFICATION FORMAT 


AK 


X 


Xj X 


X 


X 










X 




INVALID FIELD NAME IN CALL 


AL 


X 


XXX 


X 


X 










X 
X 
X 


X 


CALL USING TERM PCB IN TYPE 3 (BATCH) 


AM 


X 


X 


X X 


X 


X 




— 






CALL FUNCTION NOT COMPATIBLE W/ PROCESSING OPTION 


AN 




X 


X 


__'x_ 
x 


x „ 

X 




GN CALL FOLLOWING ISRT CALL IS INVALID 


AO 


X 


x 1 


X X 
Xj X 


I/O ERROR ISAM OR bSAM 


AP 


1 


X 


X 
X 
X 


X 
X 
X 


X 
X 






X 


I/O ERROR OSAM 


AO 











X 


X 
X 
X 


READ I/O ERROR. MESSAGE CHAIN CANNOT BE FOLLOWED. 
MINIMUM OF ONE MESSAGE LOST 


AR 




i 


READ I/O ERROR. MESSAGE SEGMENT HAS BEEN LOST. 
MESSAGE CHAIN IS STILL INTACT. 


AS 








QUEUES NOT AVAILABLE 


AT 












TRANSACTION CODE DOES NOT MATCH PCB NAME IN 
PGM-TO-PGM MSG SWITCH 


DA 








X 














X 




SEGMENT KEY FIELD HAS BEEN CHAwbED 


DJ 








X 














X 




NO PRECEDING SUCCESSFUL GET HOLD CALL 


GA 




X 


X 














X 






CROSSED HIERARCHICAL BOUNDARY INTO HIGHER LEVEL * 
(RETURNED ON UNQUALIFIED CALLS ONLY) 


GB 




X 
X X 


'"x" 


— 


■- 











END OF DATA SET. LAST SEGMENT REACHED. 


GE 


X 








SEGMENT NOT FOUND 


GK 




X X 

i 


' X 








X 


X 




DIFFERENT SEGMENT TYPE AT SAME LEVEL RETURNED 
(RETURNED ON UNQUALIFIED CALLS ONLY) 


GP 
II 






X 






A GNP CALL AND NO PARENT. OR REQUESTED 
SEGMENT LEVEL NOT LOWER THAN PARENT 
LEVEL 

SEGMENT "TO "INSERT" ALREADY EXISTS iTfiATA bASE 


LB 






x ; 


SEGMENT TO INSERT ALREADY EXISTS IN DATA BASE 


LC 




X 




X 




-— - 






KEY FIELD OF SEGMENTS OUT OF SEQUENCE 


LD 




i x 




X 




NO PARENT FOR THIS SEGMENT HAS BEEN LOADED 


LE 




Tx 


SEQUENCE OF SIBLING SEGMENTS NOT THE SAME AS 
DBD SEQUENCE 


QC 


.... 




i 


■■ 




NO MORE INPUT MESSAGES 


OD 


NO MORE SEGMENTS FOR THIS MESSAGE 


QE 






1 

i 

1 






X 


X 




X 

___ . 




GET NEXT REQUEST BEFORE GET UNIQUE 


QF 






SEGMENT LESS THAN FIVE CHARACTERS (SEG LENGTH IS 
MSG TEXT LENGTH PLUS FOUR CONTROL CHARACTERS ) 


QH 






1 1 

i 


X 




X 


X 




X 
X 




TERMINAL SYMBOLIC ERROR - OUTPUT DESIGNATION 
UNKNOWN TO IMS/360 (LOGICAL TERMINALS OR 
TRANSACTION CODE) 


QI 




1 i 

1 1 


GET NEXT AFTER END OF MESSAGE 


BB ME 


X 1 X X 

:aning blank i 

1 1 ; 


X X 
3LANK 

1 1 


X 


X 


X 


X 






GOOD! NO STATUS CODE RETURNED. PROCEED! 



* SEE PARAGRAPH ON CROSS-HIERARCHICAL BOUNDARY DEFINITION IN IflS/360 PDM 
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CHAPTER 8. IMS/360 SAMPLE PROBLEM 



The IMS/360 basic distribution tape contains two data sets, 
IMS.GENLIB and IMS. LOAD. These data sets are unloaded versions of 
direct access partitioned data set libraries as produced by the 
Operating System/360 utility program IEHMOVE. Contained in these 
libraries are the program modules and macro-definitions which comprise 
the sample application. 

A series of steps is involved in the creation of the sample 
application environment. Detailed background information regarding 
these steps is available from the references shown below: 



Copying IMS/360 distribution libraries 
to direct access storage devices 



SOM Chapter 2 
MOM Chapter 4 



Performing an IMS/360 
system definition 



SOM Chapter 4 
MOM Chapter 4 



Performing a data base description 
(DBDGEN) 



PDM Chapter 7 
SOM Chapter 3 



Performing a program specification 
block generation (PSBGEN) 



PDM Chapter 7 
SOM Chapter 3 



Moving sample problem programs and 
control blocks 

Executing an IMS/360 data base load in 
the batch environment 

Initializing IMS/360 in an online 
environment. Executing the online 
application program from user terminals 



SOM Chapter 8 
MOM Chapter 4 
MOM Chapter 4 



Before proceeding with the instructions for setting up the sample 
application, a description of the application and its data bases is 
appropriate. 



DESCRIPTION OF SAMPLE PROBLEM 



The application included within the sample problem is taken from the 
manufacturing industry. This application in its full sense includes the 
creation, use, and maintenance of the logical data bases associated with 
the product data systems. This product data can be contained in three 
subject data bases. The product data is either related to engineering 
drawings, part numbers, or systems equipment structure. These are three 
logical data bases, each organized under one of the above subjects. 

To facilitate the implementation of these three logical data bases, 
they have been split into three data bases, comprising five data set 
groups (see Figure 28). 
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LOGICAL DATA BASES 



PHYSICAL DATA BASES 



PARTS 



DRAWINGS 



END 
ITEMS 



STD DATA 

PARTS 

USAGE 

INVENTORY 

ORDER 

CONTROL 



STD DATA 
PARTS 
USAGE 
INVENTORY 




2 DATA SET 
> GROUPS 



2 DATA SET 
GROUPS 



1 DATA SET 
GROUP 



Figure 28. Logical and physical data bases 



The five physical data bases and the segments contained within these 
data bases are described in Figures 29, 30, and 31. 
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PART MASTER 



STANDARD DATA 



DATA SET GROUP 1 



DRAWING REF 



STOCK STATUS 
IN INVENTORY 



DRAWING 
CONFIG. 



MIN./MAX. 



BACK ORDERS 



CYCLE COUNT 



SUSPENDED 
STOCK 







1 








DATA SET 


GROUP 


2 




























WORK ORDER 




RAW MATERIAL 




STANDARDS 












































OPERATION 




STOCK 




DESCRIPTION 


TOOLING 


IiUCfl 


LJLJ.U1N 




R 


Ciorinvn 


J.J.UJN 

















Figure 29. Part data base 
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DRAWING/DOCUMENT NUMBER 



STD DATA 



DATA SET GROUP 1 



REVISION LTR 



ADVANCE CHANGE 
NOTICE 



APPROVAL 



DRAWING CONFIG 
CONTROL ITEM 



ACTUAL 
EFFECTIVITY 



r EDRS 
SYSTEM 



DATA SET GROUP 2 



PART NUMBER 



CONFIG, - 
OWNER CODE 



REFERENCE/SPEC 



REFERENCE 
DESIGNATOR 



MAPL/EAPL 

PARTS 

LIST 



Figure 30.. Drawing data base 
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END ITEM NUMBER 
































END ITEM DATA 




PART NUMBER 
















> EAP 




EFFECTIVITY 




















ACCOUNT NUMBER 












CONTRACT NUMBER 












SCHEDULES 





MASTER 
SCHEDULE 



Figure 31.. End item data base 



The application portion of the IMS/360 sample problem includes the 
implementation of a small subset of this entire application. The data 
base structure of the application in the sample problem includes the 
segments and their structure described in Figure 32. 





PART MASTER 




























STANDARD 
DATA 




STOCK STATUS 
IN INVENTORY 
































CYCLE COUNT 




BACK ORDERS 



Figure 32. Sample problem — application data base 



This data base subset structure includes: 



• One part number description segment for each part within the data 
base 

• A standard data segment for each part. This segment provides 
additional information of a standard nature about the part. 
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• Inventory stock status segments for each part. The application is 
designed with multiple inventory locations permissible and normally 
required for any particular part. 

• Zero to n cycle count and back-order segments for each inventory 
location of a particular part 

In addition to the application data base substructure, the sample 
problem includes application programs: 

1. To create the data base substructure in an IMS/360 Type 3 batch 
processing region. The input data for part, inventory, cycle 
count, back order, and standard part data to load into the data 
base substructure is provided. 

2. For message processing programs and associated transactions to 
execute in an IMS/360 Type 1 region to: 

a. Inquire about a part and its description 

b. Inquire about a part's total inventory in all locations or by 
specific inventory location 

c. Add a new part and its description 

d. Add part inventory information by location to an existing 
part description 

e. Delete part inventory information by location 

f . Delete a part after deletion of all its subordinate part 
inventory information 

g. Close a part order to increase the part inventory at a 
specific location 

h. Disburse a specific quantity of a particular part on a 

planned or unplanned basis at a particular part inventory 
location, thereby reducing inventory 

Figure 33 interrelates the sample problem transactions, programs, and 
data bases. 
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Inquire on 
Part Descr 



Display 
Inventory 
Status of 
Part Location 



)isplay 
Inventory 
of a Part at 
all Locations 



Delete Part 
from Data Base 



Part Descr. 
Program 



Single Location 
Inventory 
Program 



All Location 
Inventory 
Program 



Increase a 
Part's Inventory 
Program 



Part's 




L 



DATA 



BASE 



Delete Part 

Inventory 

Location 



Add/Delete 
Part and 
Inventory 
Location 
Program 



DATA BASE HIERARCHICAL STRUCTURE 



PART 
MASTER 



STANDARD 
DATA 



STOCK STATUS 
IN INVENTORY 



CYCLE 
COUNT 



BACK 
ORDERS 



TRANSACTIONS PROGRAMS 

Figure 33. Sample problem transactions, programs, and data bases 

CREATING SAMPLE PROBLEM ENVIRONMENT 

As outlined in the introduction to this chapter, a series of steps 
must be performed to create the sample problem environment . The 
remainder of this chapter describes these in detail or provides 
references for the required steps. 



Copying IMS /3 60 Distribution Libraries 

Figure 34 is an example of the JCL necessary for the allocation and 
cataloging of the data sets required for IMS/360 system definition and 
execution* 

The tape move described in Chapter 2 should move the data sets into 
direct access libraries. If the DCB attributes of IMS.GENLIB and 
SYS1.MACLIB differ, it may be necessary to reblock IMS.GENLIB using the 
IEBCOPY utility prior to performing the IMS/360 system definition. 
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Performing an IMS/360 System Definition 

Prior to performing Stages 1 and 2 of IMS/360 system definition, 
certain data sets must be allocated and cataloged. Figure 34 is an 
example of the JCL required to allocate and catalog the data sets 
required by the sample problem. Space requirements should be adjusted 
if devices other than 2311 are to be used. If data set names are to be 
changed from those shown in Figures 34 and 35, refer to Chapter 4 of 
this manual for assistance. 
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;* 



,DISP=S(, 



//ALLOCATE JOB|. .JIMS , MSGCLASS=A, MSGLEVEL=1 , PRTY=12 

//EXEC PGM=lFH 

//TWO DD VOL=SER=222222,UNIT=2311,DISP=OLD 

//THR DD VOL=SER=333333,UNIT=2311,DISP=OLD /^ 

//ILIB01 DD VOL=SER=ILIB01,UNIT=2311,DISP=OLD 

//ILIB02 DD VOL=SER=ILIB02,UNIT=2311,DISP=OLD 

//SYSPRINT DD SYSOUT=A 

//SYS IN DD *,DCB=BLKSIZE=80 

SCRATCH VTOC,VOL=2311=222222, PURGE 

SCRATCH VTOC , VOL= 2 311= 333333, PURGE 

SCRATCH VTOC, VOL=2311=ILIB01, PURGE 

SCRATCH VTOC, VOL=2311=ILIB02, PURGE 

//LIBRARYS EXEC PGM=IEHPROGM,REGION=100K 

//SYSPRINT DD SYSOUT=A 

//SIDC01 DD UNIT=2311,VOL=SER=SIDC01,DISP=OLD 

//TEMPSET DD DSN=TEMPSET # UNIT=2311, VOL=SER=222222 ,DISP=)1]( , CATLG) 

// SPACE=(TRK,(1,D) 

//CATALOG DD DSN=SYSCTLG,UNIT=2311, VOL=SER=ILIB02, DISP= ( , KEEP) , 

// SPACE=(TRK, (2,1)) 

//RESLIB DD DSN=IMS.RESLIB,UNIT=2311,VOL=SER=ILIB02,DISP=(,KEEP) , 

// SPACE= (CYL, (40,5,20)) ,DCB=SYS1 .LINKLIB 

//MACLIB DD DSN=IMS.MACLIB,UNIT=2311,VOL=SER=ILIB01,DISP=(,KEEP) , 

// SPACE=(CYL, (30,5,15)),DCB=SYS1.MACLIB 

//PGMLIB DD DSN=IMS.PGMLIB,UNIT=2311,VOL=SER=ILIB01,DISP=(,KEEP) , 

// SPACE= ( CYL,, ( 10 , 2 , 1 ) ) , DCB=SYS1 . LINKLIB 

//PSBLIB DD DSN=IMS. PSBLIB, UNIT=2311,VOL=SER=ILIB02,DISP=(, KEEP) , 

// SPACE=(CYL,(10,2,5)),DCB=SYS1.LINKLIB 

//DBDLIB DD DSN=IMS. DBDLIB, UNIT=2311, VOL=SER=ILIB02, DISP= (, KEEP) , 

// SPACE= ( CYL, ( 10 , 2 , 5) ) , DCB=SYS1 . LINKLIB 

//IQCR DD DSN=IMS.IQCR,VOL=SER=ILIB01,DISP=(,KEEP),UNIT=2311, 

// SPACE= ( CYL , ( 5 /I) ) , DCB=DSORG=PS 

//IMSG DD DSN=IMS.IMSG,VOL=SER=ILIB01,DISP=(,KEEP),UNIT=2311, 

// SPACE= ( C YL , ( 5 ,fi)) ) , DCB=DSORG=PS 

//OQCR DD DSN=IMS.OQCR,VOL=SER=ILIB02,DISP=(,KEEP) ,UNIT=2311, 

// SPACE=(CYL, (5^))),DCB=DSORG=PS 

//OMSG DD DSN=IMS.OMSG,VOL=SER=ILIB02,DISP=(,KEEP) ,UNIT=2311, 

// SPACE= ( CYL, ( 10 ia) ) , DCB=DSORG=PS 

//SYSIN DD *,DCB=BLKSIZE=8iT 

RELEASE INDEX=IMS 
DLTX INDEX=IMS,CVOL=2311=SIDC01 
CONNECT INDEX=IMS , CVOL=2311=SIDC01 , VOL=2311=ILIB02 

CATLG DSNAME=IMS. GENLIB,VOL=2311=222222, CVOL=2311=ILIB02 

CATLG DSNAME=IMS.LOAD,VOL=2311=333333,CVOL=2311=ILIB02 
CATLG DSNAME=IMS. RESLIB, VOL=2311=ILIB02,CVOL=2311=ILIB02 

CATLG DSNAME=IMS. MACLIB, VOL=2311=ILIB01, CVOL=2311=ILIB0 2 
CATLG DSNAME=IMS. PGMLIB, VOL=2311=ILIB01, CVOL=2311=ILIB02 
CATLG DSNAME=IMS. PSBLIB, VOL=2311=ILIB02,CVOL=2311=ILIB02 
CATLG DSNAME=IMS. DBDLIB, VOL=2311=ILIB02,CVOL=2311=ILIB02 
CATLG DSNAME=IMS.PROCLIB,VOL=2311=ILIB01,CVOL=2311=ILIB02 
CATLG DSNAME=IMS.IQCR,VOL=2311=ILIB01,CVOL=2311=ILIB02 
CATLG DSNAME=IMS.OQCR,VOL=2311=ILIB02,CVOL=2311=ILIB02 
CATLG DSNAME=IMS.IMSG,VOL=23ll=ILIB01,CVOL=2311=ILIB02 
CATLG DSNAME=IMS.OMSG,VOL=2311=ILIB02,CVOL=2311=ILIB02 

Figure 3U. Example of allocation and cataloging 

Having completed the allocation of required data sets. Stage 1 of 
IMS/360 system definition is performed next. Figure 35 describes the 
control cards needed as input to system definition. The TRANSACT, 
PROGRAM, and DATABASE cards describe the resources of the application 
sample. For the sake of simplicity, only one telecommunications line 
group, one line, and one physical terminal (2740) are described. Two 
logical terminals, the MASTER and one named HOWARD, are described. 
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Logical terminal HOWARD is used by the application as a destination for 
exception messages. 

If the user of the sample problem desires to perform the sample 
problem by means of a 2260 Display Station, it must be included in his 
Stage 1 system definition. The user must follow the rules of Chapter U 
of this manual for system definition and modify the Figure 35 control 
cards accordingly. ( Warning ; IMS/360 does not support the 2260 Display 
Station as a master terminal.) Prior to Stage 1 of IMS/360 system 
definition, IMS.GENLIB and IMS. LOAD must be cataloged. Those parameters 
in the system definition control cards which are underlined can be 
redefined by the IMS/360 user to meet the requirements of his data 
processing environment with no effect on the application. 
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//IMSDEF JOB 1,IMS # MSGLEVEL=1 

//STEP EXEC PGM=IEUASM r PARM= , DECK f NOLOAD f 

//SYSLIB DD DSN=IMS.GENLIB,DISP=SHR 

// DD DSN=SYS1.MACLIB,DISP=SHR 

//SYSPRINT DD SYSOUT=A 

//SYSPUNCH DD SYSOUT=B 

//SYSUT1 DD UNIT=SYSDA # SPACE= (1700, (500,50)) 

//SYSDT2 DD UNIT=SYSDA,SPACE=(1700, (500,50) ) 

//SYSUT3 DD UNIT= ( SYSDA, SEP= ( SYSUTl , SYSUT2 ) ) , 

// SPACE= (1700, (500,50)) 

//SYSIN DD * 

IMSCTRL SYSTEM= (MVT, ALL) , MAXIO=7 , MAXREGN=1 , 
COMMSVC= ( 2UU , 245 ) , OCENDA=Z8 , 
OS AMSVC=243 , MSGBUFF=10 , CKPT=500 

APPLCTN PSB=DFSSAM0 2 , PGMTYPE=TP 

DATABASE DBD=DI21PART , INTENT=SHARE 

TRANSACT CODE=PART, PRTY= (7,10,2), INQUIRY=YES 
APPLCTN PSB=DFSSAM0 3 , PGMTYPE=TP 

DATABASE DBD=DI21PART,INTENT=SHARE 

TRANSACT CODE=DSPINV, PRTY= (7,10,2), INQUIRY=YES 
APPLCTN PSB=DFSSAM0 4 , PGMTYPE=TP 

DATABASE DBD=DI 21PART , INTENT=UPDATE , LOG=YES 
TRANSACT CODE=ADDPART , PRTY= (7,10,2), INQUIRY=NO 
TRANSACT CODE=ADDINV, PRTY= (7,10,2), INQUIRY=NO 
TRANSACT CODE=DLETPART,PRTY= (7,10, 2) , INQUIRY=NO 
TRANSACT CODE=DLETINV, PRTY= (7,10,2), INQOIRY=NO 
APPLCTN PSB=DFSSAM05,PGMTYPE=TP 

DATABASE DBD=DI 21PART , INTENT=UPDATE , LOG=YES 
TRANSACT CODE=CLOSE , PRTY= (7,10,2), INQUIRY=NO 
APPLCTN PSB=DFSSAM0 6 , PGMTYPE=TP 

DATABASE DBD=DI 21PART , INTENT=UPDATE , LOG=YES 

TRANSACT CODE=DI SBDRSE , PRTY= (7,10,2), INQUIRY=NO 
APPLCTN PSB=DFSSAM07,PGMTYPE=TP 

DATABASE DBD=DI 21PART , INTENT=SHARE 

TRANSACT CODE=DSPALLI , PRTY= (7,10,2), INQUIRY=YES 
LINEGRP DDNAME=pjD27U0 

LINE FEAT= POLL # ADDR =0 32 
TERMINAL ADDR=E2 
NAME MASTER 
NAME HOWARD 
MSGQUEDE QCRIN=( IQCR , IMS. IQCR , 2311 , ILIB01 ) , 
QCROOT=( OQCR , IMS.OQCR , 2311 , ILIB02 ) , 
MSGIN=( IMSG , IMS. IMSG , 2311 , ILIB01 ) , 
MSGOUT= ( OMSG , IMS.OMSG , 2311 , ILIB02 ) 
MASTER 
COP Y= ALL , UNI T=2311 , VOLNO=ILIB01 



MASTTERM 

MACLIB 

RESLIB 

PGMLIB 

PSBLIB 

DBDLIB 

PROCLIB 

IMSGEN 

END 



UNIT= 2311 , VOLNO=ILIB02 



PDS=SYS1 . PROCLIB 

ASMPRT=ON, LEPRT= ( XREF , LIST) , UT1SDS= TEMPSET 



Figure 35. Input to system definition 



Refer to Chapter 4 of this manual if assistance is required in making 
control card changes. In particular, the message queue data set DD 
names and the IMS/360 library names should be reviewed. 
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The communication line and terminal operands may be modified as 
required to conform to the user's System/360 and Operating System/360 
specifications. Chapter 4 of this manual provides information on the 
various operands permitted. 

Once Stage 2 of system definition is successfully completed, the 
IMS/360 user must perform the following. 

1. Include the two Type 1 and the one Type 2 IMS/360 SVC modules in 
the Operating System/360 nucleus. This can be done with a 
relink- edit of the Operating System/360 nucleus if available user 
SVC numbers were generated at the time of Operating System/360 
system generation. If available SVC numbers do not exist, the 
user must perform at least an Operating System/360 nucleus-only 
system generation to provide the required SVC numbers. 

2. Copy the OSAM channel end appendage IGG019Z8 or the equivalent to 
SYS1.SVCLIB. 

3. Allocate and catalog the four sequential data sets used for 
message queuing in this example. Their DD names are IQCR, OQCR, 
IMSG, and OMSG. The associated data set names are IMS. IQCR, 
IMS. OQCR, IMS. IMSG, and IMS. OMSG. Chapter 3 of this manual 
provides information for allocation of these data sets. 

A narrative is provided at the end of the output listing from IMS/360 
system definition Stage 1. This narrative describes the additional 
functions a system user must perform prior to execution of his IMS/360 
system. Please read this narrative. 

Performing a Data Base Description (DBDGEN) Generation 

Part of the sample problem is the generation of a data base 
description which will be used by the sample application. The 
generation process consists of an assembly and linkage edit. A member 
in IMS.MACLIB titled DI21PART contains the source input to generation of 
a DBD. A procedure is placed in SYS1.PR0CLIB by system definition. The 
following JCL should be used to invoke this procedure and use the DBD 
source input to create the DBD. The output of the DBD generation 
becomes a member in the partitioned data set IMS.DBDLIB. 

//DBD JOB SAMPLE, MSGLEVEL=1 

// EXEC DBDGEN, MBR=DI21PART 

//C.SYSIN DD DSNAME=IMS.MACLIB(DI21PART),DISP=SHR 

Performing a Program Specification Block Generation (PSBGEN) 

A part of the sample problem involves generation of a program 
specification block (PSB). The generation process is called PSBGEN. 
Like DBDGEN, the process consists of an assembly and linkage edit. A 
member of IMS.MACLIB named DFSSAP04 contains the source input which will 
generate the PSB for the online application program named DFSSAM04. 
IMS/360 system definition places a procedure named PSBGEN in 
SYS1.PR0CLIB.. The following JCL uses this procedure to place the output 
PSB in the partitioned data set IMS.PSBLIB as defined in the PSBLIB 
statement of system definition. 

//PSB JOB 1,IMS,MSGLEVEL=1 

//STEP EXEC PSBGEN, MBR=DFSSAMO 4 

//C.SYSIN DD DSN=IMS.MACLIB(DFSSAP04),DISP=SHR 

Note ; The input member DFSSAP04 creates an output PSB named DFSSAM04. 
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Moving Sample Problem Programs and Control Blocks 

The next step in the sample problem is to have the IMS/360 user 
relink-edit the remaining PSB's and programs for data base creation and 
message processing from IMS. LOAD into their respective IMS libraries 
(that is, IMS.PSBLIB and IMS.PGMLIB). 

A load module exists within IMS. LOAD for each PSB and application 
program- The following JCL and link- edit control statement are used to 
relink-edit the PSB's from IMS. LOAD to IMS.PSBLIB. 

//PSBMOVE JOB 1,IMS,MSGLEVEL=1 

// EXEC PGM=IEWL,REGION=110K, X 

// PARM= J XREF, LIST, LET, NCAL,SIZE=(100K,7248) * 

//SYSLIB DD DSNAME=SYS1.C0BLIB,DISP=SHR 

//SYSLIN DD DDNAME=SYSIN 

//SYSLMOD DD DSNAME=IMS.PSBLIB, DISP=OLD 

//SYSPRINT DD SYSOUT=I 

//SYSOBJ DD DSNAME=IMS.LOAD,DISP=SHR 

//SYSUT1 DD UNIT=2311,DISP=( NEW, DELETE), X 

// SPACE=(CYL, (10,1) ,RLSE) 

//SYSIN DD * 

INCLUDE SYSOBJ (DFSS AM11 ) 

NAME DFSSAM01 (R) 

INCLUDE SYSOBJ ( DFSS AMI 2 ) 

NAME DFSSAM02(R) 

INCLUDE SYSOBJ (DFSS AMI 3 ) 

NAME DFSS AMO 3 ( R) 

INCLUDE SYSOBJ (DFSS AMI 5) 

NAME DFSSAM05(R) 

INCLUDE SYSOBJ ( DFSS AMI 6 ) 

NAME DFSS AMO 6 (R) 

INCLUDE SYSOBJ (DFSS AM17 ) 

NAME DFSSAM07(R) 

INCLUDE SYSOBJ (DFSS AMI 8) 

NAME DFSSAM08(R) 

/* 

The parameters in the JCL statements that are underlined should be 
modified to conform to the user's system configuration. 

The following JCL and control card statements are used to relink- 
edit the application program load modules from IMS. LOAD to IMS.PGMLIB. 
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//PGMMOVE JOB 1,IMS,MSGLEVEL=1 

// EXEC PGM=IEWL,REGION=110K, X 

// PARM= ■ XREF, LIST, LET, NCAL, SIZE= (100K , 7248 ) ■■ 

//SYSLIB DD DSNAME=SYSl.COBLIB,DISP=SHR 

//SYSLIN DD DDNAME=SYSIN 

//SYSLMOD DD DSNAME=IMS.PGMLIB,DISP=OLD 

//SYSPRINT DD SYSOUT=I 

//SYSOBJ DD DSNAME=IMS.LOAD,,DISP=SHR 

//SYSDT1 DD UNIT=2J311, DISP= (NEW, DELETE) , X 

// SPACE=(CYL, (10,1) ,RLSE) 

//SYSIN DD * 

INCLUDE SYSOBJ (DFSSAM01) 

ENTRY DLITCBL 
NAME DFSSAMOKR) 
INCLUDE SYSOBJ (DFSSAMO 2) 

ENTRY DLITCBL 
NAME DFSSAM02(R) 
INCLUDE SYSOBJ ( DFSSAMO 3 ) 

ENTRY DLITCBL 
NAME DFSSAMO 3 (R) 
INCLUDE SYSOBJ (DFSSAMO U ) 

ENTRY DLITCBL 
NAME DFSSAMO U(R) 
INCLUDE SYSOBJ (DFSSAMO 5) 

ENTRY DLITCBL 
NAME DFSSAM05 (R) 
INCLUDE SYSOBJ (DFSSAMO 6 ) 

ENTRY DLITCBL 
NAME DFSSAMO 6 (R) 
INCLUDE SYSOBJ (DFSSAM07) 

ENTRY DLITCBL 
NAME DFSSAM07(R) 
INCLUDE SYSOBJ (DFSSAMO 8 ) 

ENTRY DLITCBL 
NAME DFSSAMO 8 (R) 

Executing an IMS/360 Data Base Load in a Batch Environment 

Once the programs and PSB' s have been relink-edited to their 
respective libraries, the application data base may be created. Before 
this data base is loaded, the user must allocate for the Operating 
System/360 data sets which represent the data base. One ISAM and one 
OSAM data set are required. The DD card ddnames for the ISAM and OSAM 
data sets are DI21PART and DI21PARO, respectively; the data set names 
for the ISAM and OSAM data sets are IMS.DI21PART and IMS.DI21PARO, 
respectively. 

The user should now catalog these two data sets using the Operating 
System/360 utility IEHPROGM as shown in Figure 34. These data sets must 
be allocated for and cataloged before the data base load. IMS/360 
system definition has placed into SYSl.PROCLIB a procedure to execute 
the data base load. The input data for the data base load execution, 
which contains the SYSIN for load, is a member of IMS.MACLIB. The name 
of the member is MFDFSYSN. The following JCL statements will invoke the 
procedure to create the data base. 

//DBLOAD JOB 1, IMS,MSGLEVEL=1 

//STEP EXEC MFDBLOAD, PSER =333333 , PUNIT= 2311 , OSER= 222222 „ OUNIT =2311 

The symbolic parameters designate the volume serial and unit for the 
prime and OSAM data sets. 

The data base must be scratched and reallocated if a second execution 
of the MFDBLOAD procedure is desired. 
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A message is printed on the Operating System/360 console when the 
data base load is started, and another when the load is completed. 

Initializing IMS/360 in an Online Environment 

At this point, the IMS/360 system has been defined for the user's 
environment, the application sample DBD has been created, the PSB's and 
programs have been relink-edited to their respective libraries, and the 
data base has been built. 

The user is now ready to execute the IMS/360 telecommunications (Type 
0) region control program and to perform message processing in an 
IMS/360 Type 1 region. 

The system user should review Chapter 3 of this manual and the 
J lms/360 Operations Manual, Volume II - Machine Operations for 
| information concerning IMS/360 cold start. The procedure named IMS1, 

which is described in this manual,, should be used to start the IMS/360 

control program. The user must use the following JCL override 

statements which allocate the data sets created in the prior data base 

load. 

//IMS JOB MSGLEVEL=1,PRTY=13 

// EXEC IMS1 

//NUCLEUS . DI 21P ART DD DSN=IMS . DI 21PART , DI SP=OLD , VOL=SER =333333 , UNIT =2311 

//NUCLEUS. DI21PARO DD DSN=IMS.DI21PARO,DISP=OLD,VOL=SER=222222„UNIT=2311 

/* 

After the IMS/360 Type region has been initiated as an Operating 
System/360 job, a message is printed on both the Operating System/360 
system console and the IMS/360 master terminal indicating IMS READY. 

At this point, the master terminal operator should enter the restart ^ 

command message: t 

V 
/NRESTART CHKPT FORMAT ALL 

The FORMAT ALL parameter will cause the IMS/360 message queues to be 
formatted. Formatting is required only at the initial cold start or 
after an I/O error occurs in the queue data sets. Formatting requires 

| about 2-1/2 seconds per 2311 cylinder and 10 seconds per 2314 cylinder. 

| These times are approximately doubled if write- checking is included. 
Immediately upon entry of the cold start command, the IMS/360 system 
responds with a message: 

♦NRESTART IN PROGRESS 

After completion of the restart, which includes opening the message log 
and message queue data sets and formatting the message queue data sets, 
the following message is generated: 

♦IMS COLD START COMPLETE, ENTER START COMMANDS 

The system, via the Operating System/360 console, will request the 
mounting of a standard- label, nine-track tape for the system log during 
cold start. 

Although the IMS/360 control program is now available for message 
entry, no message region exists for message processing. This may be 
accomplished by entering the /START REGION command from the master 
terminal. 
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The start region command causes an Operating System/360 reader, which 
will read the JCL packet for a message region into the Operating 
System/360 job queue, to be started. The JCL packet for the message 
region is obtained from the PROCLIB library specified in IMS/360 system 
definition. Once the message region has been started and has 
communicated with the IMS/360 Type region, a message, IMS MESSAGE 
REGION STARTED, is transmitted to the master terminal. Message 
processing may now begin. 

Executing the Online Applications from User Terminals 

At this point, each transaction code is discussed. Both input and 
output information and format are included in the discussion. Figure 
36, at the end of this discussion, provides a list of some part number 
records placed into the data base at the time of data base load. Those 
part numbers may be used by the system user to enter transactions. The 
generic transaction format for all the following transactions is: 

TRANSCODEbOPERANDl, OPERAND 2, .. . 

The transaction code is separated from the first operand by one blank 
(b) . All transactions described here are defined during system 
definition as INQUIRY=NO. Therefore, the transactions cannot be entered 
on an inquiry logical terminal associated with a dial communication 
line. 

The first transaction, PART, allows the terminal operator to inquire 
into the part number data base for information from the part master and 
standard information segments of a particular part number. The input 
format is: 

transaction code part number 

part an960C10 

The output or response format is: 

part number description procurement code 

PART=AN960C10 ; DESC=WASHER ; PROC C0DE=7U 

INV CODE=2 MAKE DEPT=12-00 PLAN REV NUM= MAKE TIME= 63 COMM CODE=14 

The second transaction, DSPALLI,, allows the terminal operator to 
display all inventory, cycle count, and back-order information for a 
particular part,. The input format is: 

transaction code part number 

dspalli an960cl0 

The output format is: 

part number description procurement code 

PART=AN960C10 ; DESC=WASHER ; PROC CODE=7U 
followed by inventory description and detail information: 
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ARFA INV PRO J DIV UNIT CURRENT ON IN TOTAL COUNT BACK 

DFPT CD. PRICE REQMTS ORDER STOCK DISBUPSF TAKFN 0&0R ^ 

126 85- 126 209 N 

88 88 137 N 

630 680 1057 M 



1. 




AA 


165 


11 


2. 




AK 


287 


7F 


3. 


2 


80 


091 


26 



The third transaction, DSPINV, allows the terminal operator to 
display inventory information at a particular inventory location. 
Assume that it is wished to display only the third inventory entry 
listed in the above output- The inventory location key is obtained by 
concatenating AREA, INVDEPT, PROJCD, and DIV. 

The input format for this transaction is: 
transaction code part number inventory key 
dspinv an960cl0, 28009126 

The resultant output is: 



PART=AN960C10 ; DFSC=WASHER ; PROC C0DE=74 

ARFA = 2; INV DFPT=80; PRJ=091; DIV = 26; PRICE" .000; STK CT DATE=513; UNIT=FACH 

CURR RE0MTS= 630 ; ON 0RDFR= ; TOTAL ST0CK= 680 

DISB PLANNED= 1053 ; DISB UNPLANNED= U ; STK CT VARIANCE= 



The fourth transaction, ADDPART, allows the terminal operator to add 
a new part into the data base with its associated description,. 

The input format is: 

transaction code part number description proc.code 

addpart ab960cl0, rivet, 74 

The resultant terminal output is: 

PART NUMBER AB960C10 ADDED TO DATA BASE 

The fifth transaction, ADDINV, allows the terminal operator to add 
inventory information to an existing part in the data base. 

The input format is: 

transaction code part number inventory key 

addinv ab960cl0, 8009126 

The resultant output is: 

INVENTORY 8009126 ADDED TO PART NUMBER AB960C10 
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If the operator wishes to display the part's inventory information, 
he can enter: 

DSPINV ab960cl0, 8009126 
The resultant output is: 



"N 



252.1 
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PART«AB960C10 ; DESC=RIVET ; PROC CODE-7U 

AREA-8; INV DEPT=00; PRJ=912; DIV=6 ; PRICE= .000; STK CT DATE= ; UNIT- 

CURR REQMTS= ; ON ORDER= ; TOTAL STOCK* . 

DISB PLANNED- ; DISB UNPLANNED= ; STK CT VARIANCE* 



The sixth transaction code, DLETINV, allows the terminal operator to 
delete a specific inventory item for a specific part. The input format 
is: 

transaction code part number inventory key 

dletinv ab960cl0, 8009126 

The resultant output is: 

INVENTORY 8009126 DELETED FROM PART NUMBER AB960C10 

If all the inventory items are deleted, then a particular part number 
may be deleted from the data base with the transaction code DLETPART. 

The input format is : 

transaction code part number 

dletpart ab960cl0 

The resultant output is: 

PART NUMBER AB960C10 DELETED FROM DATA BASE 

The terminal operator may now wish to close an open order for a 
specific part in a specific inventory item. The transaction to close an 
open order is CLOSE. The input format is: 

quantity 
transaction code part number inventory key received 

close an960cl0, 28009126, 15, 15 

The resultant output is : 

UPDATE COMPLETE 

The terminal operator may now wish to display inventory item 28009126 
for part AN960C10. The output format is: 

transaction code part number inventory key 

dspinv an960cl0, 28009126 
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The resultant output is: 

PART=AN960C10 ; DFSO=WASHFR ; PROC C0DF=7l» 

ARFA=2; I MV DFPT = 80; PRJ=091; DIV = 26; PRICF.= .000; STK CT DATF=513; UNIT=FACH 

HIPR RP0MTS= 630 ; 0*! 0RPFR= 15-; TOTAL STOCK" 695 

1 SB PLAMMP0= 1053 ; DISB UNPLANNFD" h ; STK CT VAR!ANCF= 



Notice that the on- order quantity has been reduced by 15 and the 
total stock quantity has been increased by 15 to 695 from the earlier 
display of this inventory information. 

The final transaction code, DISBURSE, allows the terminal user to 
allocate a quantity on a planned or unplanned basis of a given part from 
a given inventory item- The input format is: 

disbursement 
transaction part inventory planned or quantity 
code number key unplanned disbursed 

DISBURSE an960cl0, 28009126, u, 10 

The resultant output is: 

UPDATE COMPLETED 

If the terminal operator now wishes to display the inventory 
information for key 28009126 and part number AN960C10,, the input format 
is: 

transaction code part number inventory key 

dspinv an960cl0, 28009126 

The resultant output is: 



PART=AN960C10 ; DFSC=W*SHFR ; PROC C0DF = 7«* 

ARFA=2; INV DFPT=80; PRJ=091; DIV=26; PRICF= .000; STK CT DATF=513; UNIT=FACH 

CURR RFQMTS= 630 ; ON 0RPFR= 15-; TOTAL ST0CK= 685 

DI SB PLANNED= 1053 ; DISR UNPLANNFD= 1U ; STK CT VAR|AMCF= 



The user may now terminate the IMS/360 system with a checkpoint 
command such as described below. 



( 
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Terminal input: 

/checkpoint purge 
Resultant output: 

CHECKPOINT COMMAND IN PROGRESS 

♦CHKPT 99365/132102**IMSDBS**PURGE** 

The following is a list of available part records in the data base 
which the user may employ for message processing. Those parts marked 
with an asterisk have dependent back-order segments. All parts have at 
least one dependent inventory status segment. 

Part Numbers Back Order Segments 

AN960C10 

3003806 * 

3007228 

3013412 

652799 

7U38995P002 

7618032P101 * 

922399-001 

82125-869 

A complete listing of the part numbers available on the data base may 
be obtained by executing the procedure MFDBDUMP as follows: 

//DBDOMP JOB 1, IMS,MSGLEVEL=1 
//STEP EXEC MFDBDUMP 

This procedure assumes the data sets IMS.DI21PART and IMS.DI21PARO 
are cataloged. 
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